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nota do editor 

Informatizar uma sociedade não é, certamente, 
uma tarefa fácil. Informatizar a sociedade brasileira, 
extremamente desinformada por uma estrutura educacio- 
nal catastrófica, fruto de décadas de autoritarismo 
e burocracia corrupta, é uma tarefa quase impossível I 

Apesar disso, o nível médio da inteligência 
dos brasileiros não foi, felizmente, seríamente afeta- 
do pelos fatores conjunturais. Enquanto as escolas de 
computação, em todos os níveis, ministravam cursos no 
mínimo obsoletos, uma grande quantidade de brasileiros 
inteligentes partiram para o auto-d i dat i smo, alfabeti- 
zando-se em pequenos e baratos microcomputadores pes- 
soais, ensaiando seus primeiros passos de maneira tal- 
vez não metódica, mas muitas vezes brilhante, na lin- 
guagem BASIC. 

Embora alguns "gênios" da computação nacional 
olhem esta linguagem com profundo desprezo (fruto de 
uma visão academicamente elitista e distorcida) uma e- 
norme quantidade de usuários, muitos dos quais extre- 
mamente lúcidos e criativos, a utiliza por ter sido 
sua "porta de entrada" no mundo da informática cujo 
acesso, de outra forma, lhes teria sido vedado ficando 
restrito a uma minoria "cartorial", em muitos casos 
i nef í c i ente e estéril. 

Para atender às necessidades destes usuários 
inteligentes mas sem uma formação metódica em progra- 
mação, é que convidamos o engenheiro ROBERTO MASSARU 
WATANABE, bem brasileiro apesar do sobrenome, para es- 
crever este I i vro. 

Embora a formação do Watanabe tenha sido em 
sistemas de grande porte, usando técnicas que trans- 
cendem a linguagem BASIC, seu enorme tirocínio em mi- 
crocomputadores pessoais lhe deu a possibilidade de 
transferir boa parte destes recursos para esta lingua- 
gem mais simples. 

Dando um passo a mais no mundo da informática 
o leitor terá a possibilidade de, construindo progra- 
mas passo a passo com o autor, dominar as técnicas do 
"bem programar", tornando suas listagens inteligíveis 
a terceiros, permitindo uma fácil manutenção e imple- 
mentação dos sistemas desenvolvidos. 

0 leitor deve ter consciência de que, como na 
famosa propaganda do "eu sou você amanhã", ele mesmo 
poderá não entender, daqui a alguns meses, como ele 
próprio desenvolveu um determinado raciocíniol 



introdução 


A cada dia que passa, mais e mais problemas 
passam a ser resolvidos com o emprego de computadores. 
Basta dar uma folheada nas revistas espec i a I i zadas ou 
efetuar uma visita a uma livraria. 0 computador está 
transpondo os limites tradicionais das 4 paredes de um 
escritório e encontrando o seu lugar na medicina, na 

pecuária, na indústria e até em áreas pouco habituadas 

ao processamento de dados, como as ciências sociais e 
a religião. 

I ndependentemente da natureza de um problema, 
dizer que o mesmo passou a ser solucionado com o auxí- 
lio de um computador, significa que houve uma feliz 
associação entre o computador, o problema e o usuário 
Cabe lembrar que a simples reunião desses 3 componen- 
tes não consegue, por si só, encontrar a solução. É 
necessário termos um certo usuário que se defronta com 
um determinado problema e que tenha a vontade de re- 
solver este problema com o auxílio do computador. 

Nos problemas que passaram a ser resolvidos 
com computadores, a quem devemos atribuir os méritos 
desse feito? Ao computador, cujos bits, cada vez mais 
poderosos, estão sendo oferecidos a preços cada vez 
mais acessíveis ao grande público? Ao problema que, 
pela sua natureza estratégica dentro da empresa, ne- 
cessita de soluções rápidas mesmo que implique em cus- 
tos maiores? Ao usuário que, sendo aberto às novas 
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tecnologias, conseguiu em pouco tempo absorver e domi- 
nar os potentes recursos oferecidos por um sistema 
computacional? 

Analisando detalhadamente cada um dos casos 
em que o emprego do computador trouxe vantagens reais, 
constatamos que todos os componentes, isto é, o compu- 
tador, o problema e o usuário têm a sua parcela de 
contribuição. Existe, porém, um quarto componente, ge- 
ralmente esquecido, que desempenha um papel decisivo 
nessa história» o programa. 

Sem um bom programa, os melhores computadores 
e os usuários mais habilitados do mundo quase nada po- 
dem fazer, nem mesmo resolver os problemas mais ele- 
mentares do nosso dia a dia. 

É claro que mesmo tendo uma participação pe- 
quena, o computador e o usuário são componentes que 
não podem ser desprezados, pois fazem parte de um mes- 
mo contexto, e a solução com o emprego de computadores 
deve ser encaminhada dentro dele. Em outras palavras, 
não seria aceitável a afirmação de que o computador e 
o problema estão coerentes porém o usuário deve ser 
trocado. 

Em qualquer situação em que desejamos empre- 
gar computadores, devemos encontrar a fórmula que per- 
mita uma participação equilibrada desses componentes e 
a receita que permite dosar cada uma dessas partes é o 
programa. Compete ao programa o reconhecimento dos 
dados do problema, a manipulação adequada desses dados 
valendo-se dos recursos oferecidos pelo computador e a 
apresentação da solução otimizada desse mesmo problema 
na visão do usuário. 

É grande, pois, a responsabilidade de um pro- 
grama. 

A eficiência do emprego de computadores está 
diretamente ligada não só à potência dos algoritmos e 
técnicas de programação que foram utilizadas no pro- 
grama, mas também à apacidade que o programa tem de 
amoldar-se aos hábitos e vícios dos usuários. A solu- 
ção de um determinado problema pode ser apresentada de 
mil maneiras diferentes e a ránida compreensão dessa 
solução, depende da maneira em que o usuário gostaria 
ou está habituado a recebe tais soluções. 

Por outro lado, um problema dificilmente se 
nos apresenta de modo estático, imutável ao longo do 
tempo. Existe uma espécie de evolução do problema. O 
programa feito para resolver esse problema deve ter a 
capacidade de acompanhar essa evolução. 

Como se vê, existem muitos detalhes importan- 
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tes que devemos considerar quando vamos nos propor a 
desenvolver um programa. 

Este livro apresenta alguns tópicos que per- 
nntirão, aos programadores em vias de profissionaliza- 
ção estruturar um esquema de produção de programas pa- 
ra que a atividade de desenvolvimento possa ser efetu- 
ada d uma maneira rápida e racionalizada, produzindo 
programas cuja operação possa ser executada de maneira 
simples por usuários leigos, sem grandes conhecimentos 
de programação. 

Como linha central, adotou-se o BASIC da 
Microsoft, por ser um dos mais completos e poderosos. 
Existem, é claro, algumas diferenças em determinados 
comandos e tais diferenças estão sumarizadas no Apên- 
dice I . 

A estrutura do livro compõe-se de partes onde 
foram agrupadas as sugestões de mesma natureza e em 
cada capítulo é desenvolvido um trecho de um sistema. 

No capítulo 9, os diversos trechos do sistema 
são agregados e o leitor terá desenvolvido o núcleo de 
um SISTEMA DE CONTROLE DE ESTOQUE, objetivo final do 
I i vro. 
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programas 


Este capítulo analisa a aparência de uma lis- 
tagem de programa, mostrando a conveniência de se dis- 
tribuir as instruções e os comentários de maneira a 
facilitar a leitura da listagem e a interpretação da 
estrutura lógica do programa. 

Um programa pode ser algo como o apre- 
sentado na figura 2.1 . 

Figura 2.1 - Prograna coa "estilo legível". 

100 INPUT "Fornecer as parcelas";A.B 

101 C = A + B 

102 PRINT "A soma de " ; A ; 

103 PRINT ” com ”;B ; ” = ” ; C 
10-1 END 


Como também pode ser o da figura 2.2. 
Figura 2.2 - Prograea co« "estilo coapacto". 

473 C0L0R15.1 .1 :SCREEN2:FORB=0TO127sX4=B 
*B:H=-1 28 : A=SQR{ 1 63B4-X4 ) « FOR I =-ATOASTEP 
3 : R=SQR( X4+ 1 * I )/128 = F=COS{ 1 6*R )*( 1 -R )*2 , 

Y= I /5+F*32 = I FY<=MTHEN20ELSEM= Y : Y=1 28+Y s X 
=128+B=PSET(X.191-Y):X=128-B:PSET(X,iai- 
Y) 

474 I FP=1 THEN20ELSENEXT I ,B:P=1 : CT=1 5 s CP= 

1 : GOSUB500 : END 
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I ndependentemente do fato de o programa fun- 
cionar ou não e de ser eficiente ou não, existe um fa- 
tor bastante importante que deve ser levado em consi- 
deração: caso haja necessidade de se introduzir uma 
modificação no programa, ela deve ser implementada no 
menor prazo possível . 

Se o programa foi desenvolvido há pouco tem- 
po, é bem possível que lembremos ainda da lógica que 
foi adotada. Neste caso, as modificações poderão ser 
feitas em curtíssimo prazo. 

Na prática, porém, nos defrontamos com uma 
série de fatores que fazem com que mesmo as modifica- 
ções de pequeno porte se transformem em verdadeiros 
pesadelos, levando, muitas vezes, a crer que seria 
mais fácil o desenvolvimento de um novo programa. Tais 
fatores podem ser os mais variados, sendo os mais usu- 
ais, os seguintes: 

- 0 programa foi desenvolvido há muito tempo, 
de modo que não lembramos mais da lógica que foi ado- 
tada e nem do significado de determinadas variáveis. 

- A listagem de que dispomos não corresponde 
exatamente ao programa em uso e que precisa ser modi- 
ficado. Obter uma listagem atualizada é uma tarefa di- 
fícil pois o computador em que o programa é utilizado 
fica numa filial do interior e não dispõe de impres- 
sora. 


- O programa é muito longo e manusear uma 
listagem enorme è procura de um determinado trecho que 
deve ser modificado se torna cansativo e demorado. 

- Depois desse programa já desenvolvemos uma 
dezenas de outros semelhantes, de modo que confundimos 
com facilidade trechos de um com trechos dos outros. 

- O programa foi desenvolvido por um outro 
programador, cujo estilo de programação é bastante di- 
ferente daquele que adotamos. 

- Existem várias listagens do mesmo programa 
e é praticamente impossível descobrir qual é a mais 
atual . 

Para evitar esses transtornos, procura-se 
confeccionar, paralelamente ao desenvolvimento do pro- 
grama, um manual conhecido como Manual do Programa. 
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0 Manual do Programa é um relatório que con- 
tém todos os dados que caracterizaram o ambiente se- > 
gundo o qual foi motivado o desenvolvimento do progra- 
ma. Nele são relatados os fatores que caracterizam o 
problema, as condições em que se fez o programa, os 
recursos disponíveis, o tipo de pessoal envolvido na 
solução do problema, o estudo das linguagens mais ade- 
quadas para o desenvolvimento do programa, as técnicas 
de programação e os algoritmos empregados e outras in- 
formações que possam, de alguma forma, serem úteis ou 
mesmo necessárias quando, no futuro, tivermos que pro- 
ceder a alguma modificação. 

A elaboração do Manual do Programa deve ser 
feita ao mesmo tempo em que se faz a elaboração do 
programa, para que nenhum dado seja omitido. 

Na prática, porém, essa elaboração simultânea 
nem sempre é viável, pois durante o desenvolvimento do 
programa, muitas surpresas nos são reservadas pelo 
computador, de modo que o prazo que inicialmente esti- 
mamos para se ter o programa pronto e funcionando é 
consumido rapidamente e, numa época ainda distante da 
implantação do programa, já somos pressionados diaria- 
mente pelos usuários, ávidos pela solução via computa- 
dor. 

Uma das maneiras de evitar, ou ao menos dimi- 
nuir, a influência desses fatores é fazer com que a 
listagem do programa seja fartamente comentada, valen- 
do-se do comando REM. 

Vejamos, em partes, as maneiras pelas quais 
os programas podem ser enriquecidos com comentários e 
outras i nf ormações: 


IDENTIFICAÇÃO 

Um programador que se dedica à confecção de 
programas terá, após algum tempo, um conjunto respei- 
tável de programas. Para que serve cada um deles? 
Quando foi desenvolvido? Qual a última versão? Estas 
são apenas algumas das questões que necessitam ser 
respondidas quando nos lançamos na tarefa de modificar 
um programa. 

Para facilitar a identificação de um progra- 
ma usa-se agrupar as informações que o identificam no 
início do mesmo. 
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Na identificação do programa, deve-se colocar 
pelo menos as informações seguintes: 

- nome do programa 

- para que serve 

- nome do autor e outros participantes 

- data em que foi elaborado 

- número e data da última modificação 

A identificação deve ser destacada do resto 
da listagem. Um exemplo de uma identificação completa 
e padronizada é apresentada na figura 2.3. 

Figura 2.3 - Docuientaçao no próprio prograna. 

100 * ******************************* 

101 ' * FOLPAG * Folha de Pagamento * 

1 02 9 ***ttt*ttt**t**ttt*tt*ttt*tt*tx 

103 ' 

104 ' Programa desenvolvido para o 

105 ' calculo da Folha de Pagamento 

106 

107 ' Joao da Silva - 13/10/85 

108 • 

109 ' R-1 28/02/86 

110 ’ Modificado para a adocao do 

111 ' Plano Cruzado 

112 p 

A palavra REM deve ser evitada pois a sua 
existência na sequência de instruções de um programa, 
pode dificultar a visualização e a compreensão rápida 
de partes do programa. Veja como fica difícil a loca- 
lização do comentário na listagem da figura 2.4 . 

Figura 2.4 - Uso indesejável da pseudo- instuçao REM. 

893 PRINT "DETERMINAÇÃO DO MAIOR" 

894 REM CALCULA X=MAIOR ENTRE 1 E 100 

895 RES=AUX( 1 ) 

896 FOR 1=2 TO 100 

897 IF RES<AUX( I ) THEN RES =XUS( I ) 

898 NEXT I 

Empregando-se o apóstrofo no lugar da palavra 
REM e ainda inserindo-se alguns espaços, podemos fazer 
com que a listagem acima seja um pouco mais legível. 
Veja a figura 2.5. 
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Figura 2.5 - liso do apóstrofo co«o REM. 

893 PRINT "DETERMINAÇÃO DO MAIOR" 

894 ' CALCULA X=MAIOR ENTRE 1 E 108 
B95 RES=AUX( 1 ) 

896 FOR 1=8 TO 100 

897 I F RES<AUX( I ) THEN RES =XUS( I ) 

898 NEXT I 

ESTRUTURA DO PROGRAMA 

A estrutura lógica do programa é o item mais 
importante para a perfeita e rápida compreensão do 
mesmo. Os diversos trechos que compõem um programa são 
de natureza diversas, dependendo daquilo objetivado 
pelo trecho. 

Assim, podemos ter alguns trechos cujos obje- 
tivos sejam as principais etapas do problema e outros 
que procuram resolver detalhes do programa, tais como 
a formatação de um campo ou algoritmos introduzidos 
para contornar determinadas deficiências do sistema. 

Um programa de Folha de Pagamento pode ser 
estruturado conforme o fluxograma da figura 2.6. 

Como se vê, os blocos principais do programa 
são os seguintest 

- INÍCIO 

- LEITURA DOS DADOS DE UM FUNCIONÁRIO 

- CÁLCULO DOS PROVENTOS 

- CÁLCULO DOS DESCONTOS 

- IMPRESSÃO DOS RESULTADOS 

- OUTRO FUNCIONÁRIO 

- FIM 

Na listagem do programa, esses blocos devem 
receber um destaque especial para poderem ser facil- 
mente localizados. 

0 uso conveniente da tecla TAB e linhas adi- 
cionais com símbolos repetidos antes e depois do nome 
do parágrafo, fazem com que o nome fique em evidência 
no meio da listagem. Veja a figura 2.7 . 

Além dos parágrafos principais, existem os 
parágrafos secundários que também merecem um destaque, 
porém com menor evidência. 

Isso pode ser feito de acordo com o que foi 
feito para o parágrafo principal, porém empregando um 
símbolo de menor evidência, ou mesmo sem nenhum símbo- 
lo. Veja a figura 2.8 . 
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Figura 2.6 - Fluxograma do Programa Folha de Pagamento 



Figura 2.7 - Uso da tabulação na documentação. 

200 • 

201 ' — CALCULO DE PROVENTOS — 

202 ’ 
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Além desses trechos, existem, normalmente, em 
um programa, outros trechos que não estão rei acionados 
diretamente com a sua lógica principal. São trechos em 
que são efetuadas determinadas conversões, pesquisas 
em tabelas, etc. 


Figura 2.8 - Prioridade nas linhas REM. 

210 ' 

211 ' Desconto devido ao IAPAS 

212 * 


Esses trechos devem ser programados em uma 
região distante do trecho principal do programa. A sua 
execução pode ser efetuada por um GOSUB. 

Por exemplo, é sabido que o valor que corres- 
ponde ao desconto para o IAPAS é calculado por uma 
fórmula do tipos 

IAPAS = REFERÊNCIA * ALÍQUOTA 


Nada mais correto do que incluir a fórmula no 
trecho principal do programa. Veja a figura 2.9 . 


Figura 2.9 - Definição de fóriulas. 

210 ' 

211 ’ Desconto devido ao IAPAS 

212 ' 

214 IAPAS = REFERENCIA * ALÍQUOTA 


O valor da REFERENCIA e da ALÍQUOTA variam em 
função do salário, conforme uma tabela que é fornecida 
pelo IAPAS e pode sofrer alterações de um mês para 
outro. A estrutura principal do programa não deve ser 
sucetível a qualquer alteração motivada por uma causa 
externa à empresa. A Folha de Pagamento é um instru- 
mento interno da empresa, e deve retratar a estrutura 
de organização da mesma, e se existe um desconto devi- 
do ao IAPAS, este é motivado por uma causa externa è 
empresa. Por isso, o critério de cálculo do desconto 
não deve figurar na estrutura principal do programa. 
Veja a figura 2.10 . 
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Figura 2.i# - U50 de sub-rotinas. 


210 

211 

212 

213 


214 

300 

301 

302 

303 

3000 

3001 

3002 

3003 


# 


Desconto devido ao IAPAS 


GOSUB 3800 ’ Define o valor da 

REFERENCIA e da 
ALÍQUOTA em funcao da 


legislacao vigente. 
IAPAS = REFERENCIA * ALÍQUOTA 


Rotina que calcula o valor da 
’ REFERENCIA e da ALÍQUOTA. 


NUMER AÇSO DAS INSTRUCoES 

As únicas restrições do BASIC quanto aos nú- 
meros das instruções são as seguintes: 

A - os números devem ser em ordem crescente. 

B - os números devem estar compreendidos 
entre 0 e 65529. 


Mesmo entre programas muito longos é difícil 
encontrar algum que utilize uma gama muito grande de 
numeros entre os limites acima. 

Se você tem como hábito produzir programas, 
observará que em muitos deles, existem trechos que são 
exatamente iguais, independentemente da natureza do 
programa do qual eles fazem parte. 

No exemplo acima, a rotina 3000 que determina 
o valor de REFERENCIA e o valor da ALÍQUOTA em função 
do SALARIO é uma rotina que pode ser empregada em mui- 
tos programas, além do programa de Folha de Pagamento. 

Se a tabela de cálculo for mantida em um ar- 
quivo em disco, a determinação do valor de REFERENCIA 
e a correspondente ALÍQUOTA podem ser determinadas 
conforme a figura 2.11 . 
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Figura 2.11 - Lendo valores de arquivos e» disco. 

Determina o valor de REFERENCIA e 
a ALÍQUOTA em funcao do SALARIO. 


3600 ’ 

3001 ' 

3002 ' 

3003 * 

3004 * 

3005 OPEN "TABIAPAS" AS #1 LEN=12 

3006 FIELD #1, 8 AS REF$.4 AS ALIQl 

3007 REG = 1 

3008 GET #1.REG 

3009 IF SALARIO < CVD(REF$) ™EN 

REFERENCIA = CVD<REF$) 
ALÍQUOTA = GVS( AL IQ$) 
CLOSE «1 
RETURN 

3010 REG = REG + 1 „„„„ 

3011 IF NOT EOF(I) THEN GOTO 3008 

3012 RETURN 


A padronização da numeração de trechos de 
programas traz inúmeras vantagens ao programador. 

Uma delas é a de fixar o conteúdo do trecho 
ao número. No exemplo acima, a numeraçao de 3000 a 
3012 poderá ser utilizada sempre para essa rotina, em 
qualquer programa desenvolvido. Assim, quando o pro 
gramador estiver analisando alistagem de um programa 
qualquer e encontrar a instrução: 

GOSUB 3000 

saberá, automaticamente, que se trata d ®, ™ a !! ot ' na 
que determina o valor de REFERENCIA e da ALÍQUOTA. 

Outra vantagem, como veremos mais adiante, 
e contramos na elaboração de um programa que necessita 
dessa mesma rotina. O comando MERGE fará com que a ro 
tina seja automaticamente incorporada ao programa, sem 
que tenhamos que digitá-la novamente. 


ESPAÇOS EM BRANCO 

A velocidade em que uma instrução é executada 
pelo computador depende do seu comprimento. Instruções 

curtas são executadas em menor tempo. 

Medindo-se o tempo gasto para executar as 

instruções da linha 105 do programa da figura 2.1c, 
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observamos que existe um ganho de tempo aproximado de 
1,81% quando os espaços em branco são eliminados, ou 
seja, a linha 105 é substituída por : 

105 RES = SOMA + PARCIAL 


Figura 2.Í2 - Prograna con espaços eu branco. 


100 SOMA = 10 

101 PARCIAL = 20 

102 MX = 100 

103 TIME = 0 

104 FOR N=1 TO MX 

105 RES = SOMA + PARCIAL 
10G NEXT N 

107 PRINT "TEMPO = "TIME 

108 END 


Espaços em branco facilitam a visualização e 
a compreensão da instrução e, de acordo com o que é 
feito pelo trecho do programa, essa pequena diferença 
de tempo pode não ser significativa. Muitas vezes é 
preferível admitir um prazo maior na execução para se 
ganhar rapidez na interpretação da listagem. 


EDICSO DA LISTAGEM 

O comando LLIST é muito pobre em recursos. As 
listagens impressas obtidas com esse comando, não têm 
as páginas numeradas e não são respeitadas as margens 
de topo e de rodapé, tornando a listagem inadequada 
para arquivo. 

Para contornar essas restrições, o programa- 
dor poderá valer-se de um Editor de Textos. Nestes 
casos, o programa deve ser salvo no disco no formato 
de texto, o que é feito pela ínstruçãos 

SAVE "A : PROGRAMA . FNT” , A 


com o parâmetro "A" para indicar o nosso desejo de que 
o arquivo no disco esteja formatado em "ASCII". Após 
salvar o programa no disco, o programador deve carre- 
gar o Editor de Textos e digitar os comandos para a 
impressão do arquivo. 
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Caso o leitor não disponha de um Editor de 
Textos que atenda às necessidades de numerar as pági- 
nas e incluir linhas no topo e rodapé da listagem, po- 
derá desenvolver um Listador, baseado no exemplo da 
figura 2.13 . 

Figura 2.Í3 - Prograna Listador 

100 ’ == = == ===================r======================= 

101 * LISTADOR.TXT = Imprime a listagem de programas 

102 ' ================================================ 

103 ' 

104 ' Programa para imprimir a listagem de 

105 ’ programas, com numeracao de paginas e 

106 ' cabecalho em cada pagina. 

107 ■ 

108 ' R.M.Watanabe - 24/02/87 

109 ' 

200 ' — 

201 ' Entrada dos Dados 

202 ’ 

203 ' 

204 PRINT "LISTADOR” 

205 INPUT "Fornecer o Nome do Programa" ; N$ 

206 INPUT "Fornecer o Cabecalho das paginas” ; C$ 

207 INPUT "Fornecer a data da listagem" ; D$ 

211 E$ = SPACE$( 6) 

212 MAX = 50 

213 P = 1 

300 ' 

301 ' 

302 ' Procura o arquivo no disco 

303 ' 

304 ’ 

305 OPEN N$ FOR INPUT AS #1 

306 L = 51 

310 LINE INPUT #1.1* 

311 IF L > MAX THEN GOSUB 1000 

312 LPRINT E$, L$ 

313 L = L + 1 

314 IF NOT EOF(I) THEN GOTO 310 

316 PRINT "FINAL DA LISTAGEM" 

317 CLOSE #1 

31 B END 

1000 ’ 

1001 ’ Rotina cabecalho 

1002 ' 



1003 IF P = 1 THEN GOTO 1008 

1004 FOR I = 1 TO INT(BG-MAX) - 4 

1005 LPRINT 

1006 NEXT I 

1008 LPRINT C$” - ”D$" - "P" - ” 

1009 LPR.NT 

1010 LPRINT 

1011 LPRINT 

1 012 P = P + 1 

1013 L = 1 

1014 RETURN 


Programas longos produzem listagens igualmen- 
te longas, consumindo um bom tempo para a impressão. 

Ocorre, porém, que nem sempre estamos inte- 
ressados em obter uma listagem completa do programa. 
Em situações de alterações, geralmente, apenas um pe- 
queno trecho é alterado. Nestes casos, para efeito de 
arquivo, necessitamos imprimir apenas o trecho ou a 
página alterada. 

PROGRAMA TEXTO E DE EXECUÇ20 

Um programa que possua uma lógica complexa 
poderá resultar em uma listagem em que a quantidade de 
comentários e espaços em branco são tantos que preju- 
dicam sensivelmente a velocidade de execução. 

Nestes casos, sugere-se operar com 2 tipos de 
programas: um, com todos os comentários e espaços em 
branco, que podemos chamar de PROGRAMA.TXT e outro em 
que os comentários e espaços em branco foram elimina- 
dos. e que podemos chamar de PROGRAMA. HAS. 

0 PROGRAMA.TXT será utilizado nas análises 
para alterações no programa, sendo executado apenas 
nos testes de implantação, enquanto que o PROGRAMA. BAS 
será utilizado nas execuções rotineiras, após a im- 
plantação. 

As alterações que tiverem que ser introduzi- 
das no programa devem, sempre, serem efetuadas e tes- 
tadas no PROGRAMA.TXT. 

Depois que as alterações forem testadas e 
aprovadas, o programador deve produzir o PROGRAMA. BAS. 
Para isso deve editar o programa, eliminando os comen- 
tários e os espaços em branco supérfluos. 

Os programadores "profissionais" poderão au- 
tomatizar essa produção com um programa do tipo apre- 
sentado na figura 2.14 . 
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Figura 2. 14 - Eli«inador de linhas REH. 


10P ' TIRAREM. BAS = Limpa a listagem de um programa 

1 06 ’ Elimina os comentários e os 
108 ' espaços em branco supérfluos 
110 ’ do programa 
11 ? ’ 

114 ’ R.M.Watanabe 19/05/87 

200 ' 

202 ’ Entrada do nome do programa 


206 INPtJT "nome do programa ",N$ 

208 OPEN N$ FOR INPIIT AS #1 
210 LI NE INPIIT !!1,A$ 

21? BÍ = " ”’:OOSIIB 300 

214 B$ = " REM” GOSUfl 300 

216 B$ = ”:'" : GOSIJB 300 

218 B$ = "rREMT.GOSUB 300 

220 1 = INSTR(A$.” ”) ... 

222 IF I <> 0 THEN A$ = LEFT${ A$, 1-1 ) + 

R I GHT${ A$, LEN( A$ ) - 1 ) :GOTO 220 
224 IF IEN(A$) < 5 THEN GOTO 228 

226 PRINT A$ 

228 IF NOT EOF{ 1 ) THEN GOTO 210 

230 CLOSE #1 

23? END 

300 ’ — 

30? ’ Rotina Fl imi na 
304 ' 

306 I = INSTR(A$,B$) „„„ 

308 IF I <> 0 THEN A$ = LEFT$( A$, 1-1 ) :GOTO 306 

310 RFTURN 

O programa da figura 2.14 está apresentando a 
listagem na tela do vídeo. Faça uma alteração no mesmo 
para gravar o programa modificado no disco. 

SISTEMA DE PROGRAMAS 

0 comprimento de um programa está diretamente 
relacionado aos fatores seguintes: 


Problemas complexos e variedade de opções 
oferecidas tendem a produzir listagens grandes e na 
utilização de tais programas o programador poderá de- 
frontar-se com os seguintes problemas: 

- Insuficiência de memória. 

- Dificuldades na manipulação do programa. 

Conforme apresentado no Capítulo 8, o espaço 
disponível para programas e variáveis está restrito a 
determinados limites e um programa grande poderá não 
caber na área disponível para o programa ou. mesmo que 
caiba, poderá fazer restar uma área insuficiente para 
a definição das variáveis do programa. 

Nestes casos, a solução será a de segmentar o 
programa em vários outros menores, criando-se assim, 
um conjunto de programas mais conhecido como Sistema 
de Programas. Um sistema de programas poderá ser um 
único programa ou um conjunto de vários programas, de- 
senvolvidos para resolver um determinado problema. 

Os vários programas de um sistema devem estar 
ligados entre si mediante uma lógica estabelecida e a 
execução de um ou outro será comandada pelos demais 
programas do sistema. 

Um programa pode acionar a execução de um ou- 
tro por meio do comando RUN. 

Para exemplificar isso, digite e grave os 3 
programas da figura 2.15 . 

Figura 2.15 - Seguentação de una rotina. 

100 * PARTE 1 
102 PRINT "PARTE 1" 

10-1 RUN "PARTE2" 


100 ' PARTE 2 
102 PRINT "PARTE 2" 
104 RUN "PARTE3" 


100 * PARTE 3 
102 PRINT "PARTE 3” 
104 END 


Salve os 3 programas com os nomes PARTE1 , 
PARTE2 e PARTE3 respectivamente e execute o primeiro 
com a instrução: 

RUN "PARTE1" 
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Existem muitas maneiras diferentes de se in- 
terligar os programas de um sistema. 

No exemplo acima os programas estão interli- 
gados linearmente, como apresentado na figura 2.16. 

Figura 2.Í6 - Estrutura Linear. 



A estrutura de interligação dos programas se- 
gue em geral, a estrutura em árvore, havendo um pro- 
grama principal que executa os demais, podendo haver 
alguns desses que executam outros programas. Veja a 
figura 2.17. 

Figura 2.Í7 - Estrutura ei árvore. 
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Nesses casos, a escolha do programa a ser 
carregado pelo programa PRINCIPAL será feita pelo 
usuário através de um cardápio de opções apresentado 
peio programa PRINCIPAL. 

0 programa que foi carregado, ao finalizar a 
sua tarefa, poderá retornar ao programa que o carregou 
por meio de um comando RUN. 

Maiores detalhes sobre a interligação de pro- 
gramas serão apresentados no capítulo 8. 


RESPEITO AO USUÁRIO 

0 usuário é um ente impaciente e espera que o 
computador realize as tarefas instantaneamente. 

Quem já efetuou a carga de programas a partir 
de uma fita cassete está habituado a esperar o tempo 
necessário para a transferência do programa da fita 
para a memória. 

Mas nem todos os usuários passaram por essa 
experiência (ou prova de paciência) de modo que duran- 
te a fase de carga de um outro programa, é conveniente 
os programas apresentarem uma mensagem do tipo : 

"Estou carregando um outro programa 
Aguarde alguns instantes." 

A fim de facilitar a programação, o progra- 
mador poderá desenvolver uma rotina do tipo apresen- 
tado na figura 2.18 . 


Figura 2.18 - Rotina de Carga de Outro Prograea. 


5100 • 

5102 ' ESPERE. FNT = Carrega Outro Programa 
51 04 ' 

5110 CLS 
5112 PRINT TT$ 

5114 PRINT" > TRANSFERENCIA < 

5116 PRINT 


5118 PR INT”Estou providenciando a carga do” 
5120 PR INT"programa " ; PP$ 

5122 PRINT 

5126 RUN^PP$ aWOr a9Uardar a, 9 uns instantes. 


99 
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Salve esta rotina para ser utilizada no sis- 
tema apresentado no Capítulo 9. 


CUIDADO COM O NOME DO PROGRAMA 

Durante a fase de digitação do programa e 
principalmente durante a fase de testes do mesmo, 
existe a necessidade de muitos LOAD e SAVE do pro- 
grama. 

O programador muito atarefado, que desenvolve 
um programa atrás do outro, poderá confundir, com re- 
lativa facilidade, o nome de um programa. Além disso, 
nomes muito compridos ou complexos costumam provocar 
erros de digitação, resultando em vários programas 
iguais com nomes um pouco diferentes e, no dia seguin- 
te, após ter "varado" a madrugada a procura de um erro 
no programa, o programador terá uma certa dificuldade 
em identificar aquele que foi alterado por último. 

Para evitar esse tipo de confusão, recomenda- 
se utilizar nomes curtos e, se possível, com apenas 
uma única letra. Os comandos abaixo são muito fáceis 
de serem d i g i tados: 

LOAD "P" 

SAVE "P" 

Habitue-se a sempre dar esse nome aos pro- 
gramas em desenvolvimento. Isso evitará muitos aborre- 
cimentos . 

Depois que o programa estiver totalmente 
pronto e inteiramente testado, bastará dar o nome 
definitivo com o comando: 

NAME "P” AS "FOLPAG.BAS" 


EB 


técnicas de 
entrada de dados 


Toda vez que pressionamos alguma tecla do mi- 
crocomputador, estamos querendo introduzir algum tipo 
de informação. Pode ser o nome de um funcionário para 
que o programa calcule a Folha de Pagamento, a taxa de 
juros para o programa calcular o valor das prestações, 
um número que representa uma das alternativas apresen- 
tadas por um cardápio de opções ou mesmo um comando 
para interromper a execução do programa. 

Analisando as situações em que as teclas são 
pressionadas podemos constatar que a intenção com que 
isso é feito varia conforme as necessidades do progra- 
ma e de fatos externos a ele, tais como erro de digi- 
tação ou a necessidade imprevista de interrupção do 
serviço. 

O programador deve analisar os fatos segundo 
a ótica do programa e também segundo a do usuário. 

Do ponto de vista do programa, essas situa- 
ções podem ser agrupadas conforme o seguinte: 


A - Fornecimento de dados ao programa. 

São s[tuações em que o programa solicita 
a informação que será processada, tais como o 
nome, o endereço, a idade, a quantidade, a 
taxa de juros, etc. 


B - Escolha de opções. 


São situações em que o programa, prevendo 
diversas alternativas de processamento, apre- 
senta uma relação de opções, para que o usuá- 
rio escolha uma delas. 

C - Comandos para o programa. 

São situações em que desejamos passar de- 
terminados comandos para o programa. 

Vejamos o que pode ocorrer do ponto de vista 
do usuário: 

A - Durante a digitação de uma determinada 
informação, foi cometido um engano, detectado antes de 
se terminar a digitação da mesma. 

B - Foi fornecida uma informação errada que 
só foi notada ao se digitar a informação seguinte. 

C - Durante a digitação de uma série de da- 
dos, ouve uma interrupção no trabalho para que o usuá- 
rio pudesse, por exemplo, atender ao telefone, e quan- 
do retornou à atividade, não conseguiu lembrar em que 
item a digitação foi interrompida. 

D - Foi escolhida uma opção errada, consta- 
tando-se essa falha, quase ao mesmo tempo em que a 
tecla da opção foi pressionada. 

Erros de digitação são muito comuns. Um pro- 
grama "profissional" deve, até certo ponto, permitir 
algum tipo de erro e.oferecer ao usuário a oportunida- 
de de corrigir o mesmo. 

Vejamos como é possível conciliar as diversas 
necessidades do programa com as situações, muitas ve- 
zes imprevisíveis, que cercam o usuário quando ele for 
digitar os dados. 

COMANDOS E FUNCoES PARA A 
ENTRADA DE DADOS 

Os comandos e funções que a linguagem BASIC 
oferece para a entrada de dados pelo teclado são os 
seguintes: CSRLIN, I NKEY$, INPUT, INPUT$, LINE INPUT, 
POS. 
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Vamos analisar cada um dos comandos e verifi- 
car até que ponto ele poderá ser útil nas situações 
que o programa vai enfrentar para recebimento de da- 
dos. 

CSRL I N - Fornece a linha do cursor. 

Esta função nos fornece o número da linha em 
que está posicionado o cursor. Os valores possíveis 
situam-se entre 8 e 23. 

Pode ser útil em situações de escolha de uma 
das alternativas apresentadas por um menu de opções. 

Exemplo: _0 programa da figura 3.1 apresenta 
uma tela com 5 opções, onde o usuário deve deslocar o 
cursor até a opção desejada, com o auxílio das teclas 
I e I e, em seguida, pressionar a tecla RETURN. 


Figura 3.1 - Uso de CSRLIN. 


100 CLS 

101 PRINT 

102 PRINT 

103 PRINT "A - Opcao 1" 

184 PRINT 

105 PRINT "B - Opcao 2" 

106 PRINT 

107 PRINT "C - Opcao 3 - 

108 PRINT 

109 PRINT "D - Opcao 4” 

110 PRINT 

111 PRINT ”E - Opcao 5” 

112 PRINT 

113 PRINT 

114 PRINT "Escolha uma das opcoes 

acima e pressione RETURN" 

115 HC = 15 

116 VC = 2 

117 LOCATE HC. VC t PRINT ”< " 

118 1$ = INKEYI 

119 IF 1$=”" THEN GOTO 118 

120 IF ASC{ l$)=13 THEN GOTO 130 

121 LOCATE HC.VC .- PRINT SPC{4) 

122 IF ASC( I $K>30 THEN GOTO 126 

123 VC = VC - 2 

124 IF VC<2 THEN VC = 2 

125 GOTO 117 

126 IF ASC{ l$K>31 THEN GOTO 117 
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127 VC = VC + 2 

128 IF VO10 THEN VC = 10 

129 GOTO 117 

130 CR = I NT ( CSRL IN/2) 

131 LOCATE ,1G : PRINT "Voce escolheu a opcao " ; CR 

132 END 


100 

101-111 

112-114 

115-116 


117 


118-119 


120 


121 

% 


1 22 

123 

124 

125 

126 

127 

128 
129 
13» 


131 

132 


Comentar i os : 

Apaga toda a tela para a apresentação das 
opções . 

Apresenta as 5 opções. 

Instrui o usuário de como proceder. 

Define um valor inicial para as variáveis HC 
e VC que vão comandar o posicionamento da se- 
ta indicativa. 

Posiciona o cursor na coordenada HC.VC e de- 
senha a seta indicativa. Na primeira vez, o 
posicionamento será na coordedenada definida 
nas instruções 115 e 116. Nas outras vezes, 
o posicionamento será na coordenada redefini- 
da em 123 ou 127. 

Aguarda que alguma tecla seja pressionada. 0 
valor da tecla é armazenado na variável 1$ 
para que possa ser comparado em 12», 122 e 
126. 

Verifica se a tecla pressionada foi a tecla 
RETURN. que possui o código ASCII igual a 13. 
Se sim, sai do ciclo, pulando para 130. 
Reposiciona o cursor na coordenada HC, VC on- 
de havia sido desenhada a seta indicativa e 
apaga-a, imprimindo espaços em branco. 
Verifica se a tecla pressionada foi a tecla 
i, que possui o código ASCII igual a 30. 

Se sim, diminui o valor da ordenada VC. 

Limita o menor valor da ordenada VC em 2. 
Volta para repetir o ciclo. 

Verifica se a tecla pressionada foi a tecla 
f, que possui o código ASCII igual a 31. 

Se sim, incrementa o valor da ordenada VC. 
Limita o maior valor da ordenada VC em 10. 
Volta para repetir o ciclo. 

Calcula o valor da opção escolhida, com base 
na posição do cursor, fornecida pela função 
CSRL IN. 

Imprime o valor calculado. 

Encerra a execução do programa. 
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I NKEY$ - Obtém o caractere da tecla 
pressionada. 

Esta função fornece o valor da tecla pressio- 
nada no instante em que o programa executa a função. 

é muito difícil o usuário acertar o momento 
exato em que a função está sendo executada. Por isso, 
é usual colocarmos a função dentro de um ciclo, veri- 
ficando constantemente se o valor da tecla "pressiona- 
da" é uma string vazia ou não. Enquanto nenhuma tecla 
for pressionada, o valor da função será uma string va- 
zia. Veja as linhas 100 e 101 da figura 3.2 . 

A grande vantagem dessa função reside no fato 
de ela aceitar qualquer tecla ou combinação com as te- 
clas CTRL, SHIFT, LGRA (GRAPHj e RGRA { CODE ) . 

A título de ilustração apresentamos na figura 
3.2 um programa que fornece os códigos ASCII para cada 
tecla ou combinação de teclas pressionadas. 

Figura 3.2 - Uso de INKEYI. 

100 1$ = INKEYI 

101 IF 1$=*"' THEN GOTO 100 

102 PRINT ASC( 10) 

103 GOTO 100 

Observe que quase todos os códigos ASCII des- 
de o 0 até o 255 são possíveis de serem obtidos pelo 
teclado. Observe também que o tradicional CTRL-C que 
interrompe a execução de programas, não tem o mesmo 
efeito neste caso. 


I NPUT - Introduz o valor de uma variável 
através do teclado. 

Este comando interrompe a execução do progra- 
ma e permite que novos dados sejam fornecidos ao pro- 
grama. através do teclado. 

Dos comandos de entrada de dados, este é o 
mais empregado nos programas, pois permite: 

- Antepor uma frase para orientar o usuário 
quanto ao dado, seu tipo ou unidade em que o mesmo de- 
ve ser fornec ' *o. 

100 INPUT "Area do local em b£” ; AREA 
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- Aquilo que i digitado no teclado 4 impresso 
na tela do vídeo, permitindo a edição da informação. 

- Os dados numéricos são converti os e arma- 
zenados díretamente nas variáveis. 

- Diversas informações diferentes podem ser 
introduzidas por apenas uma única instrução. 

A execução do programa da figura 3.3 deverá 
produzir algo como o apresentado na figura 3.4 . 

Figura 3.3 - Uso de INPUT. 

100 INPUT "Nome, Idade, Peso e Bai rro" ; N$, I ,P,B$ 

101 PRINT "nome = ";N$ 

1 02 PRINT "idade I 

103 PRINT "peso =";P 

104 PRINT "bairro = ";B$ 


Figura 3.4 - Tela Obtida Após o Uso do Prograia INPUT. 


ru.n 
Nome , 

Idade. Peso e Bairro? Carlos. 23. 1 

60.Tatu.aioe L 

nome 

= Carlos 

idade 

= 23 

peso 

= 60 

bairro 

ük 

= Tatuare 

■ 



0 uso deste comando em programas "profissio- 
nais" apresenta algumas restrições operacionais difi- 
cultando, em muito, a digitação das informações. Veja- 
mos algumas delas. 

A vírgula não pode figurar como parte da in- 
formação. 

O comando: 

100 INPUT "Endereço"; A$ 

deveria, do ponto de vista do usuário, ser respondido 
com: 
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Endereço? Av. Brasil, 4.567 

Porém, ao se pressionar a tecla RETURN, será 



apresentada a seguinte mensagem de erro: 

?Extra ignored 

Indicando que o computador considerou que fo- 
ram digitadas duas informações distintas, como se es- 
tivesse executando uma instrução do tipo : 

100 INPUT "Endereço"; A$.B$ 

quando a informação "Av. Brasil” seria associada à va- 
riável A$ e a outra informação ”4.567" seria associada 
à variável B$. 

Porém, o programa está esperando a entrada de 
apenas uma única informação. Daí a resposta do compu- 
tador, dizendo que a informação extra, ou adicional, 
não foi considerada. 

Outra restrição importante, deste comando, é 
que ele só aceita informações compostas apenas com os 
caracteres que tenham uma representação gráfica na ta- 
bela ASCII. Os códigos que não possuam uma represen- 
tação gráfica, tais como o TAB, o ESC, o espaço em 
branco no início da informação e todos os códigos ge- 
rados em combinação com a tecla CTRL são, normalmente, 
desprezados pelo comando INPUT. 

Desse modo, fica difícil a programação de si- 
tuações em que o usuário percebeu, depois que a tecla 
RETURN foi pressionada, que uma determinada informação 
foi digitada com erros e deseja voltar a um estágio 
anterior para poder corrigir o dado que foi fornecido. 


I NPUT$ - Lê uma quantidade especificada de 
caracteres introduzidos pelo tecla- 
do. 

Esta função, parecida com o comando INPUT, 
permite que uma informação de comprimento determinado 
seja fornecida ao programa. 

Embora parecida com o comando INPUT, apresen- 
ta as seguintes diferençasi 

- Não há a necessidade de se pressionar a te- 
cla RETURN ao final da informação. Isso é muito bom, 
pois é uma tecla a menos que o usuário terá que digi- 
tar, mas obriga a que todos os dados tenham o mesmo 
comprimento. A título de exemplo, veja o programa da 
figura 3.5 . 
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Figura 3.5 - Uso do coiando INPUTI. 

100 PRINT "Sigla do Estado="; 

101 ES$ = INPUT$ (2) 

102 PRINT 

103 PRINT "Foi digitado: ";ES$ 

- 0 comando aceita todos os códigos da tabela 
ASCII, mesmo aqueles que não possuem representação 
gráfica, tais como a tecla TAB, ESC e os códigos gera- 
dos pela associação com a tecla CTRL. O programa da 
figura 3.B fornece os mesmos códigos ASCII que o pro- 
grama apresentado na função INKEY$ (figura 3.2). 

Figura 3.6 - Uso do INPUTI. 

100 1$ = INPUT$ (1) 

101 PRINT ASC(I$) 

102 GOTO 100 

- Não é possível a colocação de alguma mensa- 
gem para orientar o usuário. Nos casos em que a mensa- 
gem é imprescindível, o programador deve utilizar o 
comando PRINT. 

- As teclas digitadas não são apresentadas no 
vídeo, de modo que se torna quase impossível a digita- 
ção de dados, exceto em casos de digitação de senhas, 
quando se deseja justamente isso. 


L | NE INPUT - Associa um dado introduzido pelo 
teclado a uma variável string. 

Esse comando interrompe a execução do progra- 
ma e permite que novos dados sejam fornecidos ao 
programa, através do teclado, como no comando INPUT. 

As diferenças, em relação ao comando INPUT 
são as seguintes: 

- Somente uma ónica informação pode ser for- 
necida a cada comando. Caso a instrução a seguir seja 
executada, será produzido um Erro de Sintaxe. 

100 LI NE INPUT "No*e e Idade"; N$,l$ 

- A vírgula pode fazer parte da informação. O 
programa da figura 3.7, quando executado, deve produ- 


34 


zir o resultado da figura 3.8 . 
Figura 3.7 - Uso do comando LINE INPUT. 

100 LINE INPUT "Endereços"; E$ 

101 PRINT E$ 


Figura 3.8 


Endereços Av.Brasi 1,4.567 

Av. Brasil, 4.567 

Diferentemente do comando INPUT, neste caso, 
a informação completa, incluindo-se a vírgula, é as- 
sociada è variável A$. 

" As informações são tratadas, sempre, como 
strings, de modo que as informações numéricas devem 
ser convertidas pelo programa. Veja o programa da fi- 
gura 3.9 . 


Figura 3.9 - Conversão de strings para números. 

100 LINE INPUT "Taxa de juros=" ; T$ 

101 TJ s VAL{ T) ) 

- 0 comando só aceita os caracteres que pos- 
suem representação gráfica na tabela ASCII, não acei- 
tando as teclas do tipo ESC, TAB e os códigos gerados 
em combinação com a tecla CTRL. 

- Aceita os espaços em branco digitados no 
início da informação. 


POS - Indica a abcissa X que o cursor ocupa. 

Esta função nos fornece o número da coluna em 
que está posicionado o cursor. Os valores possíveis 
situam-se entre 0 e 33. 

Pode ser útil em situações de escolha de uma 
das alternativas apresentadas por um menu de opções. 

Exemplo: O programa da figura 3.10 apresenta 
uma tela com 4 opções, onde o usuário deve deslocar o 
cursor até a opção desejada, com o auxílio das teclas 
do cursor, em seguida, pressionar a tecla RETURN. 
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Figura 3.Í9 - Uso da função POS. 


100 
101 
1 02 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 


99 


Opcao 1 

f 

Opcao 2 

t 

Opcao 3 

» 

Opcao 4 


•+ 

» 


— + 
i 

A 


B C D" 


CLS 
PRINT 
PRINT 
PRINT 
PRINT 

PRINT "ODcao 3 + ! I 

PRINT 
PRINT 
PRINT 
PRINT 
CR = 1 

LOCATE 7+3*CR. 9: PRINT 

LOCATE 7+3*CR.18=PRINT ”!** 

LOCATE 7+3*GR, 11 :PR INT . 

1$ = I NPUT$ (1) 

IF ASC (1$) = 13 THEN GOTO 1E7 
LOCATE 7+3*CR , 9= PR INT " ” 

LOCATE 7+3*CR.10:PRINT ” ~ 

LOCATE 7+3*CR.11 : PR INT " ” 

IF ASC (1$) O E8 THEN GOTO 1E3 
CR = CR + 1 
IF CR >4 THEN CR = A 
GOTO 111 

IF ASC { 1$) <> E9 THEN GOTO 111 
CR = CR - 1 
IF CR < 1 THEN CR = 1 
GOTO 111 

CR = INT{ (POS{0)-7)/3) 

LOCATE 0.1-1 

PRINT "Voce escolheu a opcao”;5-CR 
END 


Comentar i os : 

100 Apaga toda a tela para a apresentação das 

opções. 

101-109 Apresenta as <1 opções. 

110 Define um valor inicial para a variável CR, 

que vai indicar o número da opção e será 
empregada junto com o comando LOCATE para po- 
sicionar o cursor. 

111-113 Desenha a seta que indica uma das opções. 

114 Aguarda que seja pressionada alguma tecla e 

armazena o código da tecla pressionada na 
variável 1$. 
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115 Verifica se a tecla pressionada é a tecla 

RETURN. 

116-118 Apaga a seta indicativa, imprimindo brancos. 

119 Verifica se a tecla pressionada foi a tecla 
*7 cujo código ASCI I é 28. 

1 20 Incrementa a variável CR. 

121 Verifica se a variável CR está dentro do li- 
mí te super i or . 

122 Volta para repetir o ciclo. 

123 Verifica se a tecla pressionada é a tecla 

^ cujo código ASCI I á 29. 

124 Decrementa a variável CR. 

125 Verifica se a variável CR está dentro do 
limite inferior. 

126 Volta para repetir o ciclo. 

127 Obtém o valor da opção escolhida a partir da 
posição do cursor, obtida com a função POS. 

128 Posiciona o cursor. 

129 Imprime o número da opção escolhida. 

130 Encerra a execução do programa. 


ROTINA PARA A ENTRADA DE DADOS 

Os comandos e funções que permitem a entrada 
de informações pelo teclado apresentam características 
próprias de funcionamento. 

De forma resumida, tais características são 
as seguintes: 

CSRLIN - Fornece apenas a posição vertical do 
cursor, não serve para a digitação de dados. 

I NKEY$ - Aceita qualquer caractere do tecla- 
do, porém não mostra no vídeo a tecla pressionada. 

INPUT - Não identifica os códigos produzidos 
em combinação com a tecla CTRL e não aceita a vírgula 
no meio da informação. Mostra no vídeo as teclas 
pressionadas . 

INPUT$ - A informação deve ter um comprimen- 
to fixo, e o que for digitado não é mostrado no vídeo. 

LINE INPUT - Aceita a vírgula, porém não re- 
conhece os códigos produzidos em combinação com a te- 
cla CTRL, Mostra no vídeo, as teclas pressionadas. 
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POS - Fornece apenas a posição horizontal do 
cursor, não serve para a digitação de dados. 

A escolha do comando adequado para a entrada 
de dados, depende do tipo de informação que será digi- 
tada para o programa. 

As teclas, sozinhas ou combinadas com outras 
do tipo SHIFT, CTRL, CODE ou GRAPH, (ou RGRA e LGRA), 
produzem códigos que são enviados pelo teclado para a 
memória do computador. 

Tais códigos são combinações de 8 bits, com 
significados padronizados pela convenção ASCII. 

Embora o teclado tenha a capacidade de gerar 
256 códigos distintos, nem sempre desejamos, ou neces- 
sitamos, de todos eles. 

Vejamos, para cada situação de digitaçao de 
informações, as faixas de códigos que possam interes- 
sar aos programas. 

Na digitação de Dados Numéricos, estaremos 
fornecendo ao programa, informações compostas pela 
combinação dos algarismos 0 a 9 e símbolos + - . , 
Observando a tabela ASCII, notamos que esses símbolos 
correspondem aos códigos &H2B a &H39. 

Na digitação de Dados Alfabéticos, somente 
maiusculas, estaremos fornecendo ao programa infor- 
mações* compostas pela combinação das letras de A a Z, 
que correspondem, na tabela ASCII, aos códigos de &H41 
a &H5A. 

Na digitação de Dados Alfabéticos, inclusive 
minúsculas, estaremos fornecendo ao programa informa- 
ções compostas pela combinação das letras de A a z, 
que correspondem, na tabela ASCII, aos códigos de &H41 
a &H7A. 

Na Escolha de Opções, usamos apenas as teclas 
A e T para posicionar o cursor sobre a opção desejada 
e mais a tecla RETURN para indicar a escolha. Neste 
caso, os códigos que nos interessam são os seguintes: 

&H1E para a tecla 4 
&H1 F para a tec I a f 
&H0D para a tecla RETURN 

Como se vê, em cada situação de digitação de 
informação, a quantidade de códigos distintos é limi- 
tada e bem inferior aos 256 possíveis de serem gerados 
pe I o tec I ado . 

Embora as situações de digitação de informa- 
ções sejam distintas e possam até ser representadas 
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por^telas distintas (uma tela só para a Escolha de 
Opções, outra para a Digitação dos Dados e outra para 
dar comandos para o programa), seria interessante, 
misturar determinadas teclas de controle, possibili- 
tando a digitação de comandos em situações em que o 
programa espera a digitação de algum dado do problema. 

Um exemplo disso seria na digitação da Área 
do Terreno em um programa de Topografia. A tela de 
digitação da 4rea poderia ser algo como o apresentado 

na figura 3.11 ou algo mais completo como o ilustrado 
na figura 3.12 . 

Figura 3- ií - Programa de topografia. 


PROGRAMA DE TOPOGRAFIA 

AREA = _ 


Figura 3.12 - Programa de topografia. 


PROGRAMA PE TOPOGRAFIA 
Fornecer a área do terreno em ni* : 


Para o usuário que estiver utilizando o pro- 
grama pela primeira vez, a primeira tela poderá pro- 
vocar uma dúvida quanto è unidade em que a Área deva 
ser fornecida ao programa. 

Para o usuário que já estiver familiarizado 
com o programa, a segunda tela poderá provocar uma fa- 
diga visual pelo excesso de informações apresentadas 
na tela do video. Além disso, em programas cuja Entra- 
dade Dados seja constituída por um conjunto grande de 
dados, a indicação completa do tipo de informação em 
cada campo, poderá fazer com que os dados necessários 
nao^caibam em uma única tela, dificultando a sua diqi- 
taçao. 

Uma das maneiras de contornar essas situações 
seria o emprego de uma tela simples e a menção da uni- 
dade da Area no manual do programa e obrigar os novos 
usuários a lerem o manual. 

Outra maneira, mais elegante, é introduzir 
uma tecla especial, por exemplo CTRL+A (A de auxílio) 
que, quando pressionada, com o cursor em qualquer dos 
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campos de Entrada de Dados, fará com que apareça, num 
canto da tela, uma pequena explicação sobre o tipo de 
dado esperado pelo programa naquele campo. _ 

No exemplo anterior, após a pressão da tecla 
CTRL-A, a tela do vídeo se mostraria de acordo com a 
figura 3.13 . 


Figura 3.Í3 - Tela cob explicações. 


.PROGRAMA 

l:*E TOPOGRAFIA 

AR EA = - 




A área do 

terreno deve ser 

< fornecida eni metros quadrados. | 


Desse modo, a tela de digitação de dados fica 
mais enxuta, contendo apenas as explicações mínimas 
necessárias, facilitando a sua visualização. As demais 
explicações adicionais que eventualmente possam vir a 
ser necessárias não são normalmente apresentadas no 
vídeo, -aparecendo somente quando a tecla CTRL-A for 
press í onada . 

Como conjugar a entrada de dados com a digi- 
tação de comandos para o programa? 

Pode-se elaborar uma Rotina de Entrada, e fa- 
zer com que em todas as situações de entrada de dados 
ou de digitação de comandos para o programa, a entrada 
seja feita por essa rotina. 

Vejamos quais seriam as especificações para 

essa rotina: 


1 - Permitir a entrada dos dados que representam a 
vida real, tais como o nome de pessoas, endereços, nú- 
meros e outros. 

2 - Permitir que em situações em que o tamanho da 
informação seja previamente conhecido não seja neces- 
sário pressionar a tecia RETURN. Por exemplo, as si- 
glas dos Estados brasileiros são formadas por 2 le- 
tras. 

3 - Permitir que teclas especiais e de controle 
sejam pressionadas e devolver ao programa o código da 
tecla pressionada. 
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Para poder obedecer a essas especificações, 
iremos desenvolver uma rotina baseada no comando 
INKEY$, por ser o comando que abrange toda a faixa dos 
códigos ASCI I . 


- O núcleo básico da rotina é formado pela ins- 
trução: 

320 K$ = INKEYI : IF K$=~” THEN GOTO 320 

quando o computador aguarda até que uma tecla qualquer 
seja pressionada. 

2 - Logo que uma tecla for pressionada, a rotina 
deve verificar se essa tecla é ou não uma tecla de 
controle, representada por um códigos ASCII entre 0 e 
31 , com a i nstrução: 

330 IF ASC(K$) < 32 THEN RETURN 

3 - Não sendo uma tecla de controle, o símbolo di- 
gitado deve ser adicionado àquele anteriormente digi- 
tado, e armazenado na string A$: 

340 A$ = A$ + K$ 

4 - A tecla pressionada deve ser impressa no ví- 

deoi 

345 PRINT K$; 

5 - A string A$, sendo do tipo acumu I at i va, deve 
ser "zerada” no início da rotina; 

388 A$ = — 

6 - Verificar se a string de entrada A$ já atingiu 
o comprimento esperado para a informação. O comprimen- 
to máximo da string deve ser previamente fornecido na 
variável CS: 

358 IF LEN( A$) = CS THEN RETURN 

7 - Não tendo, ainda, atingido o comprimento espe- 
rado, a rotina deve voltar para a recepção de mais uma 
tecla: 

368 GOTO 328 
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8 - A rotina deve permitir a correção de algum ca- 
ractere que tenha sido digitado erradamente. A indica- 
ção de correção pode ser feita com a tecla Back Space 
cujo código ASCI I é 8: 


328 IF ASC( K$ ) =8 THEN PRINT CKR$(8)” "CHR${8); 

: A$=LEFT$( A$. LEN( A$)-1 ) 
:GOTO 320 


9 - A rotina deve verificar se foi pressionada a 

tecla RETURN para finalizar o dado. A tecla RETURN 
possue o código 13: 

324 IF ASC{ K$) = 13 THEN RETURN 

A rotina é apresentada na figura 3.14 . 


Figura 3.14 - Rotina para checar RETURN. 


308 Â$ = MM 

328 K$ = INKEYS : IF K$="" THEN GOTO 320 

324 IF ASC{ K$) = 13 THEN RETURN 

328 IF ASC(K$) = 8 THEN PRINT CHR$(8)“ "GHR$(8) ; 

; A$=LEFT$( A$. LEN{ A$)-1 ) 

:GOTO 320 

330 IF ASC( K$ ) < 32 THEN RETURN 
348 A$ = A$ + K$ 

QdC DD I UT t . 

350 IF LEN( A$) = CS THEN RETURN 
360 GOTO 320 


é claro, que as especificações da rotina não 
são somente aquelas acima apresentadas. 0 programador 
deverá, em função daquilo que ele desejar, elaborar 
suas próprias especificações. 

Por enquanto, para sedimentar as idéias apre- 
sentadas. teste o funcionamento da rotina com um pro- 
grama do tipo apresentado na figura 3.15 . 

As teclas de controle, devem, na medida do 
possível, estar relacionadas com as situações práticas 
que podem ocorrer. 
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Figura 3.Í5 - Teste da rotina para checar RETURN. 


108 CLS 

101 PRINT "PROGRAMA TESTE" 

102 LOCATE 0,10 = PRINT "AREA=" 

103 LOCATE 6,10,1 

104 CS=7 

105 GOSUB 300 

106 LOCATE 0,20 = PRINT STRNG$<40," ") 

107 IF A$="" THEN IF ASC(K$)<32 THEN LOCATE 0,20 

= PRINT "FOI DIGITADO: CONTROL -" 
CHR$( ASC( K$)+64)":" 

108 IF A$<>"" THEN LOCATE 0,20 

:PRINT "FOI DIGITADO:"A$" 

109 GOTO 103 


Assim, sugere-se adotar a seguinte convenção: 

Ctrl+A Auxílio. Apresenta uma orientação de como 
proceder . 

Ctrl+C Posiciona o cursor no último campo de di- 
g i tação. 

Ctrl+E Posiciona o cursor no primeiro campo de 
digi tação. 

Ctrl+H Move o cursor para o campo anterior. 

Ctrl+L Apaga o resto è direita do cursor. 

Ctrl +0 Move o cursor para cima. 

Ctrl+U Move o cursor para o campo seguinte. 

Ctrl+X Avança meia página. 

Ctrl+Y Limpa todos os campos de digitação. 

Gtrl+Z Move o cursor para baixo. 

Analise as funções que as teclas CTRL desem- 
penham em outros programas, inclusive aqueles que fo- 
ram adquiridos prontos e procure padronizar as funções 
dessas teclas, para facilitar a vida do digitador. 

Na escolha das teclas de controle, procure 
levar em consideração a disposição das teclas no te- 
clado. As teclas CTRL+A, por exemplo, podem ser acio- 
nadas com uma sõ mão, enquanto que as teclas CTRL+P só 
podem ser acionadas com ambas as mãos. 

Procure também, usar a mesma convenção de te- 
clas em todos os seus programas, pois é terrível a di- 
gitação de dados quando em um programa CTRL+S signifi- 
car uma coisa e em outro programa o mesmo CTRL+S sig- 
nificar coisa bem diferente. 
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EXEMPLO PRATICO 


Vamos desenvolver um exemplo prático para a 
digitação dos dados. 

A tela que deve ser usada para a digitação 
dos dados deve ter o aspecto da figura 3.16 . 

Os campos para a digitação de dados são apre- 
sentados na tabela da figura 3.17 . 

Com relação às teclas de controle a serem 
utilizadas no programa, são apresentadas juntamente 
com sua descrição na tabela da figura 3.18 . 

A figura 3.19 mostra os códigos ASCII das te- 
clas de controle utilizadas no programa. 

Finalmente, a listagem completa do programa 
exemplo é apresentada na figura 3.20 . 

Figura 3.Í6 - Tela para digitação dos dados. 


1 2345678901 2345678901 2345678901 234567890 


01 


02 

## CADASTRAMENTO tf# 

03 


04 

Data :XX/XX/XX 

05 


06 

Nome : XXXXXXXXXXXXXXXXXXXXXXXXX 

07 

End . . xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

08 


09 

cidade: XXXXXXXXXXXXXXXXXXXX Es t ado : XX 

10 



1 2345678901 2345678901 2345678901 234567890 


Figura 3.17 - Caapos para digitação. 


SEQUÊNCIA 

FINALIDADE 

TAMANHO 

NOME DO CAMPO 

1 

Dia do mes 

2 

D 1 A$ 

2 

Número do mes 

2 

ME5$ 

3 

Número do ano 

2 

ANO$ 

4 

Nome 

25 

NOM$ 

5 

Endereço 

30 

EDR$ 

6 

Nome da cidade 

20 

Cl 0$ 

7 

Sigla do estado 

2 

EST$ 




Figura 3.18 - Teclas de controle. 


TECLA 

FUNÇÃO 

CTRL + A 
CTRL + P 
CTRL + L 
RETURN 
BACK SPACE 
SETAS 
HOME 

ESC 

? 

Auxí lio. 

Próximo - avança para o próximo registro. 
Limpeza. 

Finaliza a entrada do dado. 

Volta o cursor apagando. 

Movimentam o cursor . 

Leva o cursor para o primeiro campo. 

Apaga o campo onde está o cursor. 

Mostra as teclas de controle. 


A combinação de teclas CTLR+A (Auxílio) faz 
surgir uma explicação sobre o tipo de dado que deve 
ser digitado no campo onde está o cursor. 

A pressão simultânea das teclas CTRL+P (Pró- 
ximo) finaliza a entrada de dados, mostra um resumo do 
que foi digitado, limpa os campos de digitação de da- 
dos e posiciona o cursar no segundo campo (Nome) para 
a digitação dos dados da próxima pessoa. O primeiro 
campo é saltado, para não ter que se digitar a data 
novamente . 

Em um programa completo, após as teclas 
CTRL+P, seria providenciada a gravação dos dados digi- 
tados em um arquivo em disco. No presente programa, 
onde procura-se ilustrar apenas a parte de digitação 
de dados, o programa irá mostrar, em um outra tela, 
todos os dados digitados. 

A combinação CTRL+L (Limpeza) limpa os campos 
de digitação de dados e posiciona o cursor no primeiro 
campo . 

A tecla RETURN finaliza a entrada do dado e 
posiciona o cursor no próximo campo. 

A tecla BACK SPACE faz o cursor voltar para a 
coluna anterior apagando o caractere que ali se encon- 
trar . 

As teclasse J posicionam o cursor no próxi- 
mo campo. Caso o cursor esteja no ultimo campo da tela 
será deslocado para o primeiro campo. 

As teclas-* e A posicionam o cursor no campo 
anterior. Caso o cursor esteja no primeiro campo da 
tela, não haverá movimento. 

HOME posiciona o cursor no primeiro campo da 


tela. 




Quando o cursor estiver no meio de um campo, 
ESC apaga o que foi digitado e posiciona o cursor no 
início do campo. Quando o cursor estiver no primeiro 
campo, volta à tela anterior. Como não há tela anteri- 
or, finaliza a execução do programa. 

Figura 3.Í9 - Códigos ASCII das teclas de controle. 


TECLA DE 
CONTROLE 

CÓDIGOS 

MSX ! IBM PC 

CTRL+A 

Auxílio 

1 

1 

CTRL+P 

Próximo 

16 

16 

CTRL+L 

Limpeza 

12 

12 

RETURN 

Finaliza 

13 

13 


Esquerda 

8 

8 

► 

Direita 

28 

077 

T 

Próximo 

31 

080 


Esquerda 

29 

075 

Â 

Anter i or 

30 

072 

HOME 

Início 

11 

071 

ESC 

Esqueça 

27 

27 

? 

Teclas 

63 

63 


Figura 3.20 - Listage* do progra»a-exe#plo. 

100 ' ===================================== 

101 ’ EXEMPLO. BAS = Testa Rotina de Entrada 

103 ’ 

104 ’ R.M.Watanabe 20/03/87 

105 ' 

200 ’ — 

?01 ’ Parâmetros Iniciais 

202 ’ 

210 DIM HC(7),VC(7).ZC(7) 

212 HC(1 )= 5:VC(1 )=4:ZC(1)= 2 

214 HC{2)= 8: VC(2)=4; ZC(2)= 2 

216 HC{ 3 ) =1 1 : VC{ 3 ) =4: ZC{ 3 ) = 2 

218 HC(4)= F>:VC(4)=6:ZG{4)=25 

220 HC( 5 ) = 5:VC(5)=7=ZC(5)=30 

222 HC( fi ) = 7-. VC( 6 ) =9 :ZG( 6 ) =20 

224 HC(7)=35:VC(7)=9:ZC(7)= 2 

230 Dl A$ = SPACE$( 2 ) 

232 MES$ = SPACE$( 2 ) 

234 ANO$ = SPACE$( 2 ) 
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236 NOM$ = SPACE${25) 

238 EDR$ = SPACE$( 30 ) 

2-10 C I D$ = SPACE$( 20 ) 

2-12 EST$ = SPACE${2) 

244 CR = 1 

250 GOTO 400 

300 A$ = ""= LOCATE ..1 

320 K$ = INKEY$: I F K$="" THEN GOTO 320 

322 IF ASC( K$ ) = 13 THEN RETURN 

324 IF ASC{ K$ ) = 8 THEN PRINT CHR$(8)" "CHR$(8) 

A$=LEFT$(A$.LEN( A$)-1 )= 
GOTO 328 

326 IF ASC{ K$ ) = 63 THEN A$=K$r RETURN 
330 IF ASC(K$) <32 THEN A$=K$= RETURN 
340 A$ = A$ + K$ 

342 PRINT K$ ; 

350 IF LEN(A$) = CS THEN RETURN 
352 GOTO 320 

408 ' 

401 ' Desenha a Tela 

402 ' 

410 CLS 

411 PRINT 

412 PRINT SPC(10)”** CADASTRAMENTO **" 

413 PRINT 

414 PRINT 

415 PRINT "Data: / / =" 

416 PRINT 

417 PRINT "Nome :"SPC(25)":" 

418 PRINT "End. :"SPC(38)”=" 

419 PRINT 

420 PRINT ”C«dade : "SPC( 20)": Estado: =" 

500 ' 

502 ’ Mostra Valores 

504 ' — 

510 LOCATE HC( 1 ) . VC{ 1 ) :PR INT DIA$ 

512 LOCATE HC(2) .VC(2) : PR INT MES$ 

513 LOCATE HCÍ 3 ) . VC{ 3) = PR I NT ANO$ 

514 LOCATE HC{4) ,VC(4) : PR INT NOM$ 

515 LOCATE HC(5) , VC{5) = PR INT EDR$ 

516 LOCATE HC( 6 ) . VG( 6 ) PR I NT CID$ 

517 LOCATE HC( 7) . VC( 7) : PR INT EST$ 

600 * 

602 ' Entrada de Dados 

604 * 

610 LOCATE HG( CR ) , VC( CR ) 

612 CS = ZC{ CR ) : GOSUB 300 

640 IF LEN(A$) = 0 THEN GOTO 710 



650 

IF 

ASC( A$ ) 


1 

THFN 

ON CR GOSIIR 1110.1120 
1130.1140.1150.1160.1170: 
COTO 600 

65? 

ir 

ASC( A$ ) 

z. 

16 

TIIFN 

COTO 800 

654 

IF 

ASC{ AS) 

r 

1 ? 

THFN 

COTO P30 

656 

IF 

A3G( A$ ) 

r 

13 

THFN 

COTO 710 

658 

ir 

ASC{ A$ ) 

- 

8 

THFN 

GOTO 7P0 

660 

IF 

ASC( AS) 

= 

?8 

THFN 

GOTO 710 

66 ? 

IF 

ASC{ AS) 

r 

31 

THFN 

GOTO 710 

664 

IF 

ASC( AS) 

r 

?9 

THEN 

GOTO 720 

666 

IF 

ASC( AS) 

r 

30 

THFN 

GOTO 7?0 

668 

IF 

ASC{ A$ ) 

— 

11 

THFN 

CR=1 :GOTO 600 

670 

IF 

ASC( AS) 

— 

?7 

THEN 

ON CR GOSIIB 1210.1220. 
1230.1240.1250,1260.1270 
GOTO 500 

67? 

IF 

ASC( AS) 

r 

63 

THEN 

GOTO 1300 

674 

IF 

ASC( AS) 

< 

3? 

THFN 

GOTO 600 

676 

678 

ON CR 
GOTO 

GOSIIB 730 
710 

, 740 , 750 

,760.770.780.780 

710 

71? 

714 

9 

> Avança o 

CR = 
IF CR 

Cursor 

CR + 1 

> 7 THEN CR = 7 


71 6 GOTO 608 

720 • > Retrocede o Cursor 

722 CR = CR - 1 

724 IF CR < 1 THEN CR = 1 

726 GOTO 600 

730 D I A$ = A$ 

732 RFTURN 

740 MES$ = A$ 

742 RETURN 

750 AN0$ = A$ 

752 RETURN 

760 NOM$ = A$ 

762 RETURN 

770 FDR$ = A$ 

772 RETURN 

780 CID$ = A$ 

782 RETURN 

790 EST$ = AS 
792 RETURN 

800 ’ > Final izacao da Entrada 

810 CLS 
812 PRINT 
814 PRINT 

816 PRINT "FORAM DIGITADOS:” 

81 B PRINT 

820 PRINT ”DATA=”DI A$"/”MESS"/"ANOS 
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822 

824 

826 

828 

830 

832 

834 

836 

838 

840 

1100 

1110 

1112 

1120 

1122 

1130 

1132 

1140 

1142 

1150 

1152 

1160 

1162 

1170 

1172 

1180 

1182 

1184 

1186 

1188 

1190 

1192 

1194 

1196 

1198 

1210 

1212 

1220 

1222 

1230 

1232 

1240 

1242 

1250 

1252 

1260 

1262 

1270 


PRINT "NOME="NOM$ 

PRINT "END. ="EDR$ 

PRINT "CIDADE="CID$ 

PRINT "ESTADO="EST$ 

LOCATE 0,19 

PRINT "Pressione qquer tecla" 

K$ = INKEYJ: I F K$="" THEN GOTO 834 
LOCATE 0,19 
PRINT SPC{ 30 ) 

GOTO 230 

> Mensagens de Auxilio 

MSG$ = "Digitar o dia entre 01 e 31" 

GOTO 1180 

MSG$ = "Digitar o numero do mes entre 01 e 12" 
GOTO 1180 

MSG$ = "Digitar o ano" 

GOTO 1180 

MSG$ = "Digitat o nome com ate 25 letras" 

GOTO 1180 

MSG$ = "Digitar o endereço com ate 30 caracteres" 
GOTO 1180 

MSG$ = "Nome da ciade com ate 20 caracteres" 

GOTO 1180 

MSG$ r "Digitar a sigla do estado" 

GOTO 1180 

LOCATE 0,19 
PRINT MSG$ 

LOCATE 0,20 

PRINT "Pressione qquer tecla" 

K$ = INKEY$: I F K$="" THEN GOTO 1188 
LOCATE 0,19 
PRINT SPC{ LEN(MSG$) ) 

LOCATE 0,20 
PRINT SPC( 30) 

RETURN 

Dl A$ = SPACE$( 2 ) 

RETURN 

MES$ = SPACE$( 2 ) 

RETURN 

ANO$ = SPACE$(2) 

RETURN 

NOM$ = SPACE$(25) 

RETURN 

EDR$ = SPACE$( 30) 

RETURN 

CID$ = SPACE$( 20 ) 

RETURN 

EST$ = SPACE${2) 
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1272 RETURN 

1300 ’ > Exp I icacoes 


1310 CLS 

1312 PRINT ”As teclas de controle sao:’’ 

1314 PRINT 

1316 PRINT "ctrl-A Apresenta uma orientacao” 
1318 PRINT ”Ctrl-P Finaliza dados" 

1320 PRINT "Gtrl-l limpa o campo" 

1322 PRINT "RETURN Entrada do dado” 

1324 PRINT ”« ou BS Retrocede o cursor" 

1326 PRINT > ou v Avança o cursor" 

1328 PRINT ”<— ou ‘ Retrocede o cursor" 

1330 PRINT "HOME Volta o cursor" 

1332 PRINT "FSC Apaga o campo” 

1334 PRINT ”? Apresenta esta explicacao” 

1336 K$=INKEY$:IF K$="” THEN GOTO 1336 
1338 GOTO 400 


ORIENTACSO AO DIGITADOR 

Não deixe o coitado do digitador desamparado. 
Na medida do possível, faça com que o programa forneça 
or i entações . 

Uma mensagem do tipo: 

"Pressione qualquer tecla para continuar." 

parece, a um programador, totalmente dispensável, po- 
rém, existem situações em que o programa não fornecen- 
do nenhuma orientação, provocará dúvidas no usuário 
quanto ao procedimento a seguir. 

Para facilitar a introdução de tais mensagens 
no programa, sugere-se elaborar uma rotina do tipo 
apresentado na figura 3.21 . 

Figura 3.2Í - Rotina "Aguarda Qualquer Tecla". 


5200 ' 

5202 ' QQUER-FNT = Aguarda Qquer Tecla 

5204 ' 

5205 C=POS( 0 ) :H=CSRL I N 

5206 PRINT "Pressione qquer tecla para continuar 
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5210 TIME = 0 
5212 K$ = INKEYÍ 

5214 IF TIME > 200 THEN GOSUB 5030 : GOTO 5210 

5216 IF K$ = "" THEN GOTO 5212 

5217 LOCATE C.M=PRINT SPACE${40) 

5218 RETURN 


SAVE "OOUER . FNT” , A 


Salvar esta rotina para ser utilizada no sis- 
tema apresentado no capítulo 9. 

Além desse tipo de orientação ao usuário, o 
programa poderá emitir sons de tonalidade e duração 
diferentes para retratar situações distintas. 

Existem situações em que o usuário cometeu 
algum erro de digitação, outras em que o usuário, dis- 
traído, deve ser chamado a atenção. 

Uma rotina do tipo apresentado na figura 3.22 
poderá proporcionar sons adequados para cada uma des- 
sas situações. 


Figura 3.22 - Rotina de Sons. 


5000 • 

5002 ' SONS.FNT = Rotinas de Sons 


5004 ’ — 

5010 ’ > Som de Vai mal 

5012 PLAY ”L1 3bL9c" 

5014 RETURN 

5020 ' > Som de Siga 

5022 PLAY "LI 5b" 

5024 RETURN 

5030 ’ > Som de Atencao 

5032 PLAY "05V9L9gR9dV8” 

5034 RETURN 


SAVE "SONS.FNT”. A 


Salvar esta rotina para ser utilizada no sis- 
tema apresentado no capítulo 9. 
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ROTINA PARA A ENTRADA DE DADOS 

A seguir é apresentada uma rotina genérica 
para a entrada de dados. Veja a figura 3.23. 

Figura 3.23 - Rotina de Entrada de Dados. 

1000 ’ 

1802 ' ROTENT.FNT - Rotina de Entrada 

100-1 ' — 

1006 «$=”"= PT=0 
1008 LOCATE ..1 
1010 REH 

1012 K$=INKEY$: IF K$=~" THEN GOTO 1012 
101-1 IF ASC(KS)= 0 THEN CASO=1 =GOTO 10-10 

1016 IF ASC{ K$ ) cl 1 THEN CAS0=2=G0T0 10-10 

1018 IF ASC( K$)=12 THEN CAS0=3=G0T0 1040 

1020 IF ASC{ K$)=13 THEN CAS0=4:G0T0 1040 

1022 IF ASC(K$)=27 THEN CASO=5:GOTO 1040 

1024 IF ASC(K$)=28 THEN CAS0=6,G0T0 1040 

1026 IF ASC( K$ )=28 THEN GAS0=7*G0T0 1040 

1028 IF ASC(K$)<32 OR ASC(KS)>127 THEN A$=K$: 

GOTO 1138 

1030 A$=A*+K$ 

1032 PT» PT + 1 
1 034 PR I NT K$ - 

1036 IF LEN{ Á$)=CS THEN GOTO 1138 

1038 GOTO 1010 

1040 IF PT=0 THEN A$=K$.GOTO 1138 

1042 ON CASO GOSUB 1048.1066.1078.1098,1106.1118,1128 
1044 IF ASC(K$)=13 THEN PRINT CHR$(8) ; ;A$=LEFT${ A$.PT) : 

GOTO 1138 

1046 GOTO 1012 


1048 ’ > 8 = Volta apagando 

1058 IF PT < 1 THEN RETURN 

1052 IF PT > LEN(A$) THEN GOTO 1138 

1054 PT = PT-1 

1056 A$»LEFTS(AS.PT)+RIGHTS{A$.LEN(A»)-PT-1 ) 
1058 G=POS( 0 ) :M=CSRL I N 

1060 PRINT CHR$( 8 ) R I GHT$( AS , LEN( A$ ) -PT )” ” 

1062 LOCATE C.M= PRINT CHRS<8). 

1064 RETURN 

1066 ' > 11 = Cursor no inÀcio 

1068 FOR C=1 TO PT 

1070 GOSUB 1128 

1 072 NEXT C 

1074 PT=0 

1076 RETURN 
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1878 ' > 12 o Apaga o Campo Todo 

1888 FOR C=1 TO PT 

1882 GOSUB 1128 

1 884 NEXT C 

1086 PT = 8 

1088 C=POS<0) 

1090 PRINT SPACEI(CS); 

1892 LOCATE C.MiPRINT CHR$(8); 

1096 RETURN 

1098 ’ > 13 = Sai da rotina 

1100 IF LEN(A$)<>0 THEN RETURN 

1102 A$=K$ 

1104 RETURN 

1186 ’ > 27 = Cursor no fim 

1108 N=CS - PT 

1110 FOR C=1 TO N 

1112 GOSUB 1118 

1114 NEXT C 

1116 RETURN 

1118 " > 28 = Avança o cursor 

1120 IF PT=>LEN( A$) THEN RETURN 

1122 PRINT GHR${28) ; 

1124 PT=PT+1 

1126 RETURN 

1128 ’ > 29 = Retrocede cursor 

1130 IF PT<=8 THEN RETURN 

1132 PRINT CHR$( 8 ) ; 

1134 PT = PT - 1 

1136 RETURN 


1138 LOGATE . .0: RETURN 


SAVE "ROTENT.FNT’*. A 


Salvar esta rotina para ser utilizada no sis- 
tema apresentado no capítulo 9. 
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4 

acesso a 
discos 


Este capítulo apresenta os principais concei- 
tos relacionados com a utilização de arquivos em disco 
magnético, detalha a montagem e a manutenção de arqui- 
vos sequenciais e randômicos e descreve algumas técni- 
cas para a manipulação eficiente das informações arma- 
zenadas nos arquivos. 

0 disco magnético, comumente conhecido como 
"disquete", é composto de trilhas onde são registrados 
os sinais magnéticos que representam as informações 
armazenadas no disco pelo programa. 

Cada uma das trilhas do disco é dividida em 
setores, havendo uma determinada quantidade de setores 
ao longo de uma trilha e essa quantidade de setores é 
a mesma em todas as trilhas do disco. 

Em um setor do disco pode ser armazenada uma 
quantidade fixa de bytes de informação e essa quanti- 
dade é a mesma em todos os setores do disco. 

A quantidade de bytes por setor, a quantidade 
de setores por trilha e a quantidade de trilhas por 
disco é fixada pelo sistema operacional, em função da 
tecnologia utilizada na fabricação do d i s k drive. 

Dizer que um determinado disk drive possui 
uma capacidade maior de armazenamento que outro signi- 
fica dizer que os bytes são gravados em uma densidade 
maior e. para não diminuir a qualidade ou a confiabi- 
lidade dos dados nele gravados, a tecnologia empregada 
na fabricação desse disk drive deve ser mais avançada. 
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0 padrão internacional estabelecido para o 
sistema MSX é o seguinte: 


- tamanho em polegadas = 3,5 

- quantidade de faces utilizadas por disco = 2 

- quantidade de trilhas por face = 80 

- quantidade de setores por trilha = 9 

- quantidade de bytes por setor = 512 


Disso resulta que nos disquetes empregados no 
sistema MSX. podemos armazenar 0 total máximo de 
737.280 bytes, ou seja. 720 Kbytes. 

No Brasil, os primeiros drives usados com os 
MSX foram os mesmos já existentes para 0 IBM-PC. de 
5.25 polegadas e 40 trilhas por face. 0 que acarreta 
uma capacidade de armazenamento de 360 Kbytes. Os dri- 
ves de 3.5 polegadas só apareceram no mercado nacional 
em 1988. 

Não se^iluda pensando que todos esses 720 ou 
360 Kbytes poderão ser utilizados para 0 armazenamento 
de informações, pois nem todo 0 espaço do disco é dis- 
ponível para arquivos. 

O espaço útil do disco é dividido em 3 áreas 
d[st i ntas. cum finalidades específicas. Essas áreas 
são conhecidas como: 

- área do Sistema Operacional 

- área do Di r etór i 0 

- área de Arquivos 

A área do Sistema Operacional contém a parte 
do MSXDOS ou CP/M encarregada de manipular as informa- 
ções que transitam entre a memória e 0 disco. Como sa- 
bemos. 0 núcleo principal do Sistema Operacional está 
gravado na memória ROM e esse núcleo interpreta e exe- 
cuta todos os comandos que são fornecidos ao computa- 
dor. Conectando-se um disk drive. 0 computador passa a 
poder armazenar informações em discos magnéticos, 0 
que é feito mediante a digitação de comandos específi- 
cos para essa finalidade. A parte do Sistema Operacio- 
nal que interpreta e executa esses comandos fica arma- 
zenada nas pr ime i ras^t r i I has do disco e durante a ope- 
ração, de inicialização do sistema, comumente conhecida 
como "BOOT", ela é transferida para a memória onde é 
integrada ao núcleo principal do MSXDOS ou CP/M. 

A área do Diretório contém os nomes de todos 
os arquivos gravados no disco e os endereços dos seto- 
res utilizados por cada um deles. Na execução do co- 
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mando FILES, por exemplo, o sistema operacional con- 
sulta o diretório para saber quais arquivos estão gra- 
vados no disco e o tamanho de cada um deles. 

Na área de Arquivos são gravados os arquivos 
definidos pelos usuários. Cada arquivo do disco tem o 
seu nome registrado no diretório e as informações do 
arquivo ficam gravadas em setores de tamanho fixo. Um 
arquivo que tenha, por exemplo, 700 bytes de tamanho 
ocupará 2 setores do disco no MSX ou no PC e 6 setores 
no CP/M. 

Toda e qualquer informação manipulada pelos 
programas pode ser armazenada no disco na forma de ar- 
qu i vos. 

Entende-se como ''gravação" o ato de se regis- 
trar uma certa informação no disco, isto é, transferir 
a informação que está na memória do computador para o 
disco magnético onde a mesma poderá ficar armazenada 
para sempre. 

Entende-se como "leitura" o ato de se recupe- 
rar uma certa informação gravada anteriormente no dis- 
co, isto é, transferir para a memória, uma certa in- 
formação que foi "gravada" no disco. 

Para podermos gravar e ler informações no 
disco, devemos seguir certos procedimentos padroniza- 
dos para garantir que as informações que serão grava- 
das, o sejam em uma posição "conhecida" para permitir 
sua posterior leitura. De nada adianta guardar, de 
qualquer jeito, uma certa informação se não soubermos 
posteriormente onde ela foi guardada. 

Os procedimentos necessários para a gravação 
de uma informação no disco são os seguintes: 


1 - Escolher um nome para o arquivo. 

As informações ficam armazenadas no disco na 
forma de "arquivos". Um disco pode conter uma grande 
quantidade de arquivos distintos. O sistema operacio- 
nal distingue um arquivo do outro apenas pelo nome que 
fica gravado no Diretório do disco. 

0 nome do arquivo deve ser formado por um 
conjunto de no máximo 11 letras e algarismos, dividi- 
dos em duas partes: a primeira, conhecida como "nome 
do arquivo", é composta de 8 caracteres e a ^segunda, 
conhecida como "terminação do nome do arquivo", é com- 
posta de 3 caracteres. Entre o "nome" e a "terminação" 
deve ser colocado um ponto (".") separador. 


56 




Exemplos: CADASTRO. ARO 

MOVTO. JAN 
F I L I AL1 2. MOV 


2 - Executar o comando para abrir o arquivo. 

Como em um arquivo convencional, para poder- 
mos guardar ou acessar uma informação, devemos, antes 
de mais nada, abrir a gaveta onde as informações estio 
arqu i vadas . 

Quando o sistema operacional executa o coman- 
do para abrir um arquivo, pode ocorrer uma das duas 
situações seguintes: 


- o arquivo já existe. 

Neste caso, as informações serão gravadas 
"sobre" aquelas existentes, ou seja, as in- 
formações anteriormente gravadas são simples- 
mente apagadas e no lugar das mesmas são gra- 
vadas as novas informações. 

- o arqu i vo é novo . 

Neste caso, o Diretório é acessado, adiciona- 
do o nome desse novo arquivo e reservada uma 
área nova (sem uso) para a gravação das in- 
formações . 


3 - Executar o comando para a gravação. 

Este comando indica quais informações deverão 
ser transferidas para o disco e efetiva a gravação. 


4 - Executar o comando para fechar o arquivo. 

Normalmente, para ganhar tempo, o sistema 
operacional opera com "buffers" que nada mais são que 
áreas reservadas, na própr i a memór i a para o armazena- 
mento temporário das informações. 

O tempo que o sistema operacional gasta para 
efetivamente gravar uma informação é relativamente 
grande, pois para conseguir isso, o sistema necessita, 
entre outras atividades: 
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- colocar o disco em movimento, pois, quando 
o disco não está sendo acessado, ele está 
parado para economizar energia elétrica e 
diminuir o desgaste mecânico do drive. 

- posicionar o cabeçote de leitura e gravação 
sobre a trilha desejada. 

- acionar os circuitos eletrônicos que produ- 
zem a gravação magnética. 


Suponhamos que um programa deseje gravar ape- 
nas a idade de um grupo de pessoas. Ora, a idade de 
pessoas é uma informação constituída de apenas 2 dígi- 
tos e que, portanto, irá consumir apenas 2 bytes no 
disco para cada pessoa. 0 programa, naturalmente, irá 
buscar essas idades em algum outro lugar, no teclado 
por exemplo, e depois disso, irá gravar no disco, re- 
petindo esse ciclo até completar as idades de todas as 
pessoas do grupo. 

Se o sistema operacional tivesse que " i r ao 
disco" a cada comando de gravação, o programa perderia 
um tempo relativamente grande, pois a cada ida ao dis- 
co, ele teria que ficar esperando a execução de todo o 
ciclo de gravação acima apresentado, para a gravação 
de apenas 2 bytes. 

Em vez de "ir ao disco", o sistema operacio- 
n a I "vai ao buffer" e lá armazena os 2 bytes. Na repe- 
tição do ciclo, o sistema operacional faz a mesma coi- 
sa adicionando os novos 2 bytes aqueles já "gravados". 
Somente quando o "buffer" já está cheio é que o siste- 
ma operacional efetivamente produz a gravação no dis- 
co, transferindo não apenas 2 bytes mas todos os bytes 
que estão no "buffer" de uma só vez. 

A transferência do conteúdo do "buffer" para 
o disco 6 feita au toma t i carne te pelo sistema operacio- 
nal quando o buffer fica "cheio", de modo que quando o 
programa terminar todas as gravações necessárias, pode 
ocorrer de o buffer não estar totalmente cheio. A exe- 
cução de um comando de "fechamento" do arquivo, garan- 
te que o resto de informações do buffer que ainda não 
foram gravadas no disco sejam efetivamente transferi- 
das e gravadas no disco. 



Osproced imentos necessários para a leitura 
de informações no disco são os seguintes: 


1 - Fornecer ao sistema operacional o nome do ar- 
quivo que se deseja acessar. 


Ao executar o comando, 
duas si tuações segui ntes : 


pode ocorrer uma das 


- o arquivo já ex i ste . 

Neste caso um dos buffers disponíveis será 
alocado exclusivamente para o arquivo e os 
setores onde estão gravadas as informações do 
arquivo ficarão disponíveis para o programa 
acessar . 


- o arquivo não existe. 

Neste caso o sistema operacional apresenta 
uma mensagem de erro, indicando a inexistên- 
cia do arquivo. 


E - Executar o comando para a leitura. 

Este comando indica quais informações, do ar- 
quivo, deverão ser transferidas do disco para 
a memor ia. 


3 - Executar o comando para "fechar" o arquivo. 

Com o "fechamento" do arquivo, o buffer a 
ele alocado ficará disponível para ser aloca- 
do a outro arquivo. 


Os arquivos podem ser do tipo Sequencial ou 
Kandomi co e os comandos envolvidos na gravação e lei- 
tura de informações no disco são os seguintes: 


OPEN 
INPUT # 

CLOSE 


FIELD PRINT # 

PUT tf GET tf 
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0 comando OPEN indica ao sistema operacional 
a intenção de se trabalhar com um certo arquivo e na 
execução do comando devem ser indicados: 

- o numero do drive onde está inserido o disco que 
contém ou que deverá conter o arquivo. 

- o nome do arquivo. 

- o modo de acesso ao arquivo, que poderá ser 
I NPUT , OUTPUT ou APPEND. 

- o número de referência do arquivo. 

- o tamanho dos registros. 

- o tipo de acesso ao arquivo, se sequencial ou 
randômi co . 

O comando FIELD aplica-se somente a arquivos 
do tipo randômico e indica os campos e respectivos ta- 
manhos que constituem um registro. 

Os comandos PRINT# e INPUT# são empregados 
para a gravação e leitura de dados em um arquivo se- 
quenc i a I . 

Os comandos PUT# e GET# são empregados para a 
gravação e leitura de dados em um arquivo randomico. 

O comando CLOSF é empregado para encerrar o 
trabalho com o arquivo. Ele "fecha" o arquivo e libera 
o buffcr correspondente para ser utilizado por um ou- 
tro arquivo que, porventura, o programa venha a abrir. 

Em resumo, os camandos de acesso a arquivos 
são os seguintes: 


TIPO DE ARQUIVO 
SEQUENCIAL RANDÔMICO 


- Abrir o arquivo OPEN OPEN 

- Gravar uma informação PRINT # PUT # 

- Ler uma informação INPUT Jt GET # 

- Fechar o arquivo GLOSE GLOSE 
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ARQUIUO SEQUENCIAL 


Os arquivos sequenciais, como o próprio nome 
indica, são formados por registros gravados um após o 
outro segundo uma sequência* cronológica e possuem as 
seguintes características: 

- os registros podem ter tamanhos diferentes. 

- devem ser acessados somente para leitura ou 
somente para gravação. 

- o acesso deve ser sequencial. 

Em outras palavras, se o arquivo for aberto 
para leitura (FOR INPUT) não será possível realizar 
gravações no mesmo, a não ser que o arquivo seja fe- 
chado e, a seguir, aberto para gravação (FOR OUTPUT). 

A primeira leitura ou gravação, logo após a 
abertura do arquivo, será sempre no primeiro registro, 
a segunda leitura ou gravação será sempre no segundo 
registro e essa correspondência deve ser mantida até o 
último registro do arquivo. 

Isso significa que caso o programa deseie ler 
o 48Q registro do arquivo, deverá ler, obrigatoriamen- 
te, todos os 47 registros que o antecedem. em. 

Os comandos que permitem o acesso as informa- 
ções de um arquivo sequencial são os seguintes: 

OPEN PRINT * INPUT * CLOSE 

0 comando OPEN fornece ao sistema operacional 
as informações necessárias para preparar o arquivo. 

Para as diversas opções de abertura de um ar- 
quivo sequencial chamado "CADASTRO. ARQ", que está ou 
será montado no drive A:, podemos utilizar um dos se- 
guintes comandos: 

OPEN "A s CADASTRO . ARO" FOR OUTPUT AS #1 

quando se deseja abrir um arquivo sequencial onde os 
dados serão gravados pela primeira vez. 

O programador deve tomar certos cuidados para 
evitar que a gravação seja feita "em cima" de um outro 
arquivo, verificando se já existe outro arquivo com o 
mesmo nome, através do comando.- 

FILES "A= CADASTRO. ARQ" 
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antes de executar o programa, ou embutir no próprio 
programa a verificação automática da existência de ou- 
tro arquivo com o mesmo nome. Mais adiante, neste ca- 
pítulo, apresentaremos algumas sugestões de como isso 
pode ser feito. 

OPEN "A : CADASTRO . ARQ" FOR APPEND AS #1 

quando se deseja abrir um arquivo sequencial criado em 
um outro processamento para adicionar novas informa- 
ções a ele sem destruir as gravadas anteriormente. 

OPEN "A s CADASTRO . ARQ" FOR INPUT AS #1 

quando se deseja abrir um arquivo sequencial já exis- 
tente onde iremos apenas consultar as informações gra- 
vadas, sem pretender efetuar qualquer tipo de altera- 
ção nas mesmas. 

O comando PRINT# indica quais informações de- 
vem ser gravadas no arquivo. O seu funcionamento é pa- 
recido com o comando PRINT, diferindo apenas pelo pa- 
râmetro #n que indica o número de referência do arqui- 
vo . 

Exemplo: Seja um programa que recebe os seguintes da- 
dos pe I o teci ado : 

- nome da pessoa 

- apelido 

- idade 

- número do telefone 

e grava o nome, o apelido e a idade em um arquivo cha- 
mado "AMIGOS. ARO" e, o apelido e o número do telefone, 
em um outro arquivo chamado "TELEFONE. TEL”. 

Neste caso, o programa irá trabalhar com 2 
arquivos simultaneamente, de modo que para cada um 
deles precisamos ter uma conjunto distinto de OPEN, 
PRINT# e CLOSE. 

A listagem do programa seria algo do tipo: 

200 MAXF I LES = 2 

201 PRINT ‘"Inicio do Programa 1 " 

203 OPEN "AMIGOS. ARQ" FOR OUTPUT AS #1 

204 OPEN "TELEFONE. TEL” FOR OUTPUT AS #2 

300 CLS 

301 INPUT "Nome " ; N$ 
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30E IF N$="FIM"THEN GOTO 500 

303 INPUT "Apel ido " ; A$ 

304 INPUT "Idade 1$ 

305 INPUT "Telefone " ; T$ 


40E 

403 


PR INT 
PR INT 


#1 , N$ 
#E. A$ 


PR INT 
T $ 


#1 . A$ 


PR INT 


«1 - 1 $ 


404 GOTO 300 


500 PRINT "Final do Programa" 

501 GLOSE #1 
50E GLOSE #E 
503 ENO 


Se fosse possível enxergar o que foi gravado 
em um arquivo sequencial, veríamos algo do t i po = 


t * V?rLj7 - ~ ^ ^ 1 11 iS3 I * * vwi i isaii-arvs 

1 Simões Sobrin 
F rates de Olivei 
, de Carpa lhoi«Gu,g 

-■/ ® Cloti Ide Me x rajPSC 1 oVU y J#Í 
i va Ide te dos Santos JWI i vaSÇ&ASte 1 - 


c I usões i 


Olhando o exemplo, podemos tirar algumas con- 


1 - Em um arquivo sequencial, cada um dos 
campos fica separado dos outros.. 

E - As informações são gravadas conforme fo- 
ram d i g i tadas . 


Caso seja executado o seguinte programa: 


E01 

E03 

S04 

30E 


PRINT "Inicio do Programa” 

OPEN "AMIGOS. ARO" FOR INPUT AS #1 
IF EOF( 1 ) THEN GOTO 500 
INPUT ftl.XS.YS 
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303 PRINT X$;"+";Y$ 

304 GOTO 204 

500 CLOSE #1 

501 PRINT "Fim do Programa" 

503 END 

será apresentado, no vídeo, o seguinte: 


Carlos de Almeida+Carlao 
14+Tereza do Carmo 
Terezinha+16 
Milton Tanaka+ Japonês 
12+Ãparecido Simões Sobrinho 
Cido+13 . • 

Geraldo Prates de 01 weira+Gera 
15+Auo>usto de Carvalho 
Gugui+ll , 

Uera Clotilde Meira+Clo 
10+Nivaldete dos Santos 
Niva+14 

Fim do Programa 


isto é , a cada execução da instrução: 

302 INPUT#1 ,X$, Y$ 

as próximas 2 informações do arquivo são atribuídas, 
respectivamente, às variáveis X$ e Y$, de modo que, 
compete ao programador saber a ordem exata em que as 
informações foram gravadas para poder efetuar corre- 
tamente a leitura. 

Na "fotografia" do arquivo, apresentada na 
página anterior, os caracteres usados como separadores 
podem ser visualizados e são os de códigos ASCII 13 
(&H0D = Carriage Return) e 10 (&H0A = Line Feed). 

Em algumas situações, outros caracteres (vírgula, 
po n t o-e~v í r gu I a e espaço) são usados para separar os 
campos num arquivo. 
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0 caractere aspas ( ” ) pode ser gravado num 
arquivo com o emprego da função CHR$(34) antes e após 
a informação. Por exemplo, se quisermos gravar a frase 
"Hoje é um belo dia" com as aspas num arquivo 
sequencial previamente ahcrto com a número 1, devemos 
comandar ; 


PRINT #1 , CHR$( 3^1 )”Ho j e é um belo d i a"CHR${ 34) 

Como veremos mais adiante, os arquivos de da- 
dos, definidos pelo usuário, são mais versáteis de se- 
rem manipulados quando são definidos como sendo do ti- 
po Randômico. Os arquivos Sequenciais são mais apro- 
priados para a comunicação do programa com os perifé- 
ricos. 


OPEN "CAS:” FOR INPUT AS #1 
OPEN "CAS:” FOR OUTPUT AS #1 
OPEN "CRT:" FOR OUTPUT AS #1 
OPEN "GRPs" FOR OUTPUT AS #1 
OPEN "LPT s” FOR OUTPUT AS «1 


AR QU I MO RANDÔMICO 

Os arquivos randômicos, diferentemente dos 
arquivos sequenciais, permitem o acesso "randômico” a 
qualquer um dos registros do arquivo, isto é,os regis- 
tros podem ser acessados diretamente em qualquer or- 
dem. 

0 termo "randômico" provém do inglês Random 
que significa "sem uma ordem fixa”. Isto significa que 
os registros podem ser lidos ou gravados em qualquer 
ordem e um certo registro pode ser acessado tantas ve- 
zes quantas se fizerem necessárias no programa. 

As características principais de um arquivo 
randômico são as seguintes? 

- o tamanho dos registros deve ser fixo, isto é, 
todos os registros devem ter o mesmo tamanho. 

n acesso pode ser para leitura ou gravação, não 
se fazendo essa distinção no comando OPEN. 

- os registros podem ser acessados em qualquer or- 
dem, podendo ser acessado em primeiro lugar o 
registro 56, depois o IP, etc. 
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Os comandos que permitem o acesso as informa 
ções de um arquivo randômico são os seguintes: 

OPEN FIELD PUT GET CLOSE 

O comando OPEN abre um arquivo em disco. Na 
execução deste comando, duas situações podem ser en- 
contradas: 

A - O arquivo não existe. 

Neste caso, o nome do arquivo será adicionado 
no Diretório do disco e uma área não usada será reser- 
vada para o arquivo. 

B - O arquivo já existe. 

Neste caso, o arquivo existente será aberto. 

Diferentemente do arquivo sequencial, em que 
na abertura devemos indicar se o acesso será somente 
de leitura ou somente de gravação, o arquivo randomico 
é aberto para quaisquer tipos de acesso, independente- 
mente do fato do arquivo ser utilizado para leituras, 
gravações ou atualizações, de modo que temos apenas 
uma única sintaxe para o comando OPEN: 

OPEN -A: CADASTRO. ARO" AS #1 LEN=47 

onde indicamos o drive onde se encontra o arquivo, o 
nome do arquivo, o número de referência e o comprimen- 
to dos registros. , . . . „ . 

No caso de arquivos randomicos e obrigatória 

a indicação do tamanho do registro, no parâmetro LEN, 
pois é a existência ou não desse parâmetro que vai in- 
dicar ao sistema operacional o tipo de arquivo, se se 
quencial ou randômico. 

Uma vez fixado o compr imento, todos os regis- 
tros do arquivo, do primeiro até o último, devem ter o 
mesmo comprimento, nenhum byte a mais ou a menos. 

O comando FIELD define as informações que fa- 
zem parte do registro e os respectivos tamanhos máxi 

mos . 


Para a montagem do comando FIELD, o programa- 
dor deve: 

1 - Relacionar as informações que fazem par- 
te do registro. 
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Esta é uma atividade de planejamento, pois o 
programador deve escolher somente as informações que 
serão necessár i as . 

c? - Fscolher um nome conveniente para cada um 
dos campos. 

Os campos que compõem um registro são asso- 
ciados a nomes de variáveis. No casn de arquivos ran- 
dômicos, tais campos devem ser associados a variáveis 
do tipo string. 

Isso deve ser feito também com informações 
numéricas, que antes de serem gravadas devem ser con- 
verti das em str i ngs . 

3 - Fixar o tamanho máximo que a informação 
ocupará no disco. 

A quantidade de bytes que uma informação ocu- 
pa no disco, depende do tipo de informação. 

Informações tipo strings ocupam 1 byte para 
cada caractere da informação. 

Informações numéricas ocupam 8, 4 ou 8 bytes 
conforme o tipo de variável numérica empregada: 


TIPO DE VARUVEl 
NUMÉRICA 


QUANTIDADE DE BYTES 
NO DISCO 


I nte i r a z 
Real de Precisão Simples 4 
Real de Precisão Dupla 8 


Exemplo: Montar o comando FIELD para a definição dos 
seguintes campos de informações: 


- Nome do Funcionário 

- Idade 

- Quantidade de Floras Trabalhadas 

- Salário Anua I 


Após um estudo minucioso, pois "byte is mo- 
ney”, chegamos a conclusão que os seguintes tamanhos 
satisfazem as necessidades dos campos: 
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CAMPO 


TAMANHO MÁXIMO 
OA INFORMAÇÃO 


Nome do Funcionário 3 0 caracteres 
Idade 2 algarismos 
Quantidade de Horas Trabalhadas 3 algarismos 
Salário Anual 9 algarismos 


Escolhendo um nome apropriado de variável pa- 
ra cada campo: 


CAMPO 

Nome do Funcionário 
I dade 

Quantidade de Horas 
Salário Anual 


VARIAVEL 

NF$ 

I D$ 

Trabalhadas HT$ 

SA$ 


O comando FIELD serás 

FIELD Ml .30 AS NFI.2 AS ID$,4 AS HT$,B AS SA$ 

Os comandos LSET e RSET servem para transfe- 
rir a informação de uma variável comum para a var i a- 
ve! de definição do campo dentro do comando Pltiu. 

As informações tipo string são transferidas 

d i retamente : 

LSET NF$ = NOME$ 

enquanto que as informações numéricas devem ser trans- 
feridas convertendo as mesmas_ de números para strings 
usando uma função de conversão de acordo com o tipo 
de variável numér i ca . 

LSET ID$ = HKI$( IDADE) 

LSET HT$ = MKS${ HORAS) 

LSET SA$ = MKD$<SALARIO) 

Usando-se essas funções, as informações ocu- 
parão sempre a mesma quantidade de bytes no disco, in 
dependentemente do tamanho da informação. Assim, mde 
pendentemente do fato de a variável SAL AR 1 0 conter a 
informação 1.00 ou 678450.00 ela ocupara sempre 8 by- 
tes no disco. 
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Não existe diferença significativa entre o 
L S ET e o RSET. 

O comando PUT efetiva a transferência dos da- 
dos da memória para o disco. 

Na execução do comando, devemos indicar, por 
meio do número de referência, em qual dos arquivos de- 
sejamos que a gravação seia feita, e dar também o nú- 
mero do registro onde a gravação deverá ser efetuada. 

Exemplo: O comando: 

PUT #2.423 

fará com que as informações definidas no co- 
mando FIELD sejam gravadas no 4235 registro do arquivo 
aberto com a referência #2. 

O comando GET executa o contrário do comando 
PUT, ou seja, transfere as informações do disco para a 
memór i a . 

Exemplo: O comando: 

GET #1.47 

transferirá o conteúdo do 47S registro do ar- 
quivo aberto com a referência #1 . 

0 comando CLOSE finaliza as transferência. 

Como vimos no início do capítulo, nem sempre 
a execução do comando PUT ocasiona a ida do sistema 
operacional até o disco. Ele "faz de conta" que foi 
até o disco, mas na verdade, foi só até o "buffer". 

Vejamos o mesmo exemplo utilizado para exem- 
plificar o uso de um arquivo sequencial, definindo, 
desta vez, o arquivo como randômico: 

A listagem do programa seria algo do tipo: 


200 MAXFILES = 2 

201 PRINT "Inicio do Programa" 

203 OPEN "AMIGOS. ARO" AS #1 LEN=42 

204 FIELD #1.30 AS NP$.10 AS AP$,2 AS ID$ 

205 OPEN "TELEFONE. TEL” AS #2 LEN=18 

206 FIELD #2.10 AS AL$.B AS TL$ 


300 N = 0 

£ mm 

303 IF N$=”FIK” THEN GOTO 500 

304 INPUT "Apelido " ; A$ 
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305 INPUT "Idade 1$ 

306 INPUT "Telefone ”;T$ 

401 N = N + 1 

402 LSET NP$ = N$ 

403 LSET AP$ = A$ 

404 LSET I D$ = 1$ 

405 PUT n.N 

406 LSET AL$ = A$ 

407 LSET TL$ = T$ 

408 PUT 02. N 

409 GOTO 301 

500 PRINT "Incluídos ” ; N;”reg i stros ." 

501 PRINT "Final do Programa" 

502 CLOSE #1 

504 CLOSE *2 

505 END 


Se fosse possível enxergar o 
em um arquivo randômico, veríamos algo 


que foi 
do tipo 


gravado 


Carlos de Almeida Cari ao 

14Tereza do Carmo Tere 

zinha ISMilton Tanaka w . . 

Japonês 12Aparecido Simões Sobrinho 
Cido 136eraldo Pr ates de 01 iw 

eira 6era ISAugusto de Caryalh 

o Guo)U llVera Çlotilde 

fieira Cio 10Nivaldete 

dos Santos Ni va 14 


onde todas as informações ficam gravadas no comprimen- 
to especificado no comando FIELD. 


Olhando o exemplo, podemos tirar algumas con- 

c I usões : 


1 - Em um arquivo randômico, cada um dos campos tem o 
tamanho especificado no comando FIEID e não há se- 
paradores de campos. 
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E - As informações são gravadas no tamanho especifica- 
do pelo comando FIELD, de modo que quando a infor- 
mação tiver um comprimento menor, o restante do 
campo será preenchido com espaços em branco. 

Caso seja executado o seguinte programa: 


281 PRINT "Inicio do Programa" 

202 OPEN "ARQUIVOS. ARO" AS #1 LEN=42 

203 FIELD #1,30 AS NF$.10 AS AP$.2 AS ID$ 

204 MX = LOF( 1 )/42 

301 FOR N = 1 TO MX 

302 GET #1 . N 

303 PRINT NF$ ; ID$ 

384 NEXT N 

500 CLOSE #1 

581 PRINT "Fim do Programa” 

503 END 


será apresentado, no vídeo, o seguinte: 


run 

Inicio do Programa 
Carlos de Almeida 
Tereza do Carmo 
Milton Tanaka 
Aparecido Simões Sobrinho 
beraldo Prates de Oliveira 
Augusto de Carvalho •' 
Oera Clotilde Me ira 
Nivaldete dos Santos 
Fim do Programa 
uk 


0 arquivo, sendo randômico, pode ser acessa- 
do em qualquer ordem, inclusive do fim para o começo. 
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Caso seja executado o programas 


201 PRINT "Inicio do Programa" 

202 OPEN "AMIGOS. ARO" AS #1 LEN=42 

203 FIELD #1.30 AS NF$,10 AS AP$.2 AS ID$ 

204 MX = LOF( 1 )/42 

301 FOR N=MX TO 1 STEP -1 

302 GET #1 . N 

303 PRINT NF);ID$ 

304 NEXT N 

500 CLOSE #1 

501 PRINT "Fim do Programa" 

502 END 


será apresentado, no vídeo, o seguinte: 


/ 

run 

Inicio do Programa 

14 

Nivaldete dos Santos 

'..'era Clotilde Me ira 

10 ! 

Augusto de Carvalho 

ii ; 

Geraldo Prates de Oliveira 

15 

rtrarecido Si mo es Sobrinho 

13 

Milton Tanaka 

12 

Tereza do Carmo 

16 ! 

Carlos de Almeida 

Fim do Programa 

Ok 

■ 

14 


ACESSO AO DISCO 

Os arquivos sequenciais e randômicos são ar- 
quivos criados e mantidos pelos programas desenvolvi- 
dos peio usuário. 

Além desses tipos, existem os arquivos cria- 
dos e mantidos pelo sistema operacional. São os ar- 
quivos de programas. 
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Esses arquivos, parecidos com o arquivo se- 
quencial, são constituídos de registros de tamanhos 
variados, contendo, em cada registro, o seguinte: 

- número da instrução em 2 bytes 

- código "token" do comando em 1 byte 

- parte de texto da instrução 

- separadores 0D0A entre uma instrução e outra 
finalizador IA para indicar o fim do arquivo. 

Obviamente, isso é válido para os arquivos de 
programas em BASIC. Programas feitos em outras lingua- 
gens são armazenados de forma diversa. 

^A manipulação desses arquivos, isto é, a 
transferencia entre a memória e o disco, é efetuada 
com o auxílio dos comandos seguintes: 

LOAD SAVE 

O comando LOAD efetua a transferência de um 
programa do disco para a memória-. 

Para a execução do comando, devemos especifi- 
car em qual dos drives está o programa, ou havendo o 
mesmo programa em vários drives, qual deles desejamos 
carregar e o nome do programa. Exemplo: 

LOAD "As CADASTRA” 

Na execução do comando, poderão ocorrer 2 si- 
tuações diferentes: 

- o programa encontrado no disco está gravado na 
forma de "token". 

Neste caso, a transferência será direta. 

- o programa encontrado no disco está gravado na 
forma de texto. 

Neste caso, a transferência do programa para a 
memória será efetuada com a conversão dos comandos pa- 
ra o "token" correspondente. 

Maiores detalhes sobre a forma de armazena- 
mento de programas na memória podem ser obtidos na pá- 
gina 23 do livro "Aprofundando-se no MSX”. 

O comando SAVE efetua a transferência do pro- 
grama da memória para o disco, gravando o programa em 
um arqu i vo . 
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Para a execução do comando, devemos especifi- 
car em qual dos drives desejamos gravar o programa e o 
nome do mesmo. Exemplo: 

SAVE ”B s CADASTRA . BAS" 

Na execução do comando, duas situações dis- 
tintas poderão ocorrer: 

- O arquivo não existe. 

Neste caso, o sistema operacional inclue o 
nome do programa no diretório do disco e efetua a gra- 
vação do programa na forma de um arquivo com o nome 
CADASTRA. BAS. 

- O arquivo já existe. 

Se já existir no disco um arquivo com o nome 
CADASTRA. BAS, independentemente do fato de ser ou não 
um arquivo de programa, podendo inclusive ser um ar- 
quivo de dados, o sistema operacional simplesmente li- 
bera a área ocupada pelo arquivo existente e grava, em 
cima, o programa que está na memória. 

A gravação do programa resume-se em efetuar 
uma cópia do programa que está na memória, de modo que 
os comandos são gravados na forma de "token" a exemplo 
daquilo que está na memória. 

O programador poderá querer que o programa 
seja gravado no disco na forma de texto, com os coman- 
dos gravados conforme digitados, para, por exemplo, 
ser editado com o auxílio de um Processador de Textos. 
Neste caso, basta adicionar o parâmetro "A” para indi- 
car ao sistema operacional que todos os "tokens” devem 
ser convertidos nas palavras de comando corresponden- 
tes. Exemplo.* 

SAVE "B : CADASTRA . BAS" , A 

Os comandos LOAD e SAVE podem ser usados den- 
tro de programas. Existem situações em que um determi- 
nado programa não cabe por inteiro na memória e situa- 
ções em que mesmo cabendo, não nos interessa carregá- 
lo por inteiro, pois diminuiria consideravelmente a 
área livre na memória, causando algumas restrições 
quanto a quantidade de buffers ou a quantidade de va- 
riáveis definíveis na memória. 
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Nessas situações, o correto 6 dividir o pro- 
grama em 2 ou mais partes e fazer com que uma parte 
carregue, automaticamente, a outra parte para prosse- 
guir com o processamento. 

Uma das maneiras de. fazer com que uma parte 
do programa carregue a outra parte, a partir do disco, 
é utilizar o comando RUN, mas este comando, tem a pro- 
priedade de fechar todos os arquivos abertos. 

0 comando LOAD com o parâmetro "R" oferece 
uma saída elegante, não sendo necessário, no programa 
que está sendo carregado, abrir novamente os arquivos 
em uso, isto é, todos os arquivos abertos pelo primei- 
ro programa continuarão abertos após a carga do segun- 
do programa. 

Vejamos, a seguir, algumas técnicas de acesso 
ao disco objetivando o seguinte.- 

- facilitar e aumentar a velocidade de desen- 

volvimento de um programa 

- facilitar e diminuir o tempo gasto na in- 
terpretação da listagem de um programa. 

1 - Padronizar e agrupar os comandos de aber- 

tura de arquivos. 

Na digitação dos comandos de abertura de ar- 
quivos pode ocorrer um erro de digitação que possa por 
a perder todo o funcionamento do programa. 

Recomenda-se procurar digitar o menos possí- 
vel para evitar erros de digitação. 

Um grande sistema é geralmente composto por 
vários programas que manipulam diversos arquivos. Um 
desses arquivos poderia, por exemplo, apresentar as 
seguintes instruções de abertura: 

200 OPEN ~B:MOVI1.IPir AS #1 LEN=86 

201 FIELD #1,20 AS N$,15 AS N1$,10 AS AS$,5 AS B5$ 

Veja bem, são instruções de digitação difí- 
cil, podendo-se cometer facilmente algum erro de digi- 
tação. Se esse arquivo é um daqueles que é manipulado 
em todcs os programas, essas instruções deverão ser 
digitadas em todos eles. Fatalmente algum erro de di- 
gitação será cometido. 

Podemos criar um arquivo contendo todos os 
gabaritos de arquivos utilizados pelos programas do 
sistema. Tal arquivo pode ser gravado na forma de tex- 


75 



to com o nome de GABARITO. FNT e quando um novo progra- 
ma precisar de um dos gabaritos, poderíamos carregar o 
gabarito que nos interessa com a instrução: 

MERGE "GABARITO. FNT" 

Exemplo: Vamos supor que os programas PROG1 , PR0G2 e 
PR0G3 acessam o mesmo arquivo, de modo que as instru- 
ções: 

OPEN "A = CADASTRO. ARQ" AS #1 LEN = 88 
FIELO #1.30 AS N$,50 AS E$,8 AS S$ 

devem estar presente nos 3 programas. 

Afim de evitar erros de digitação por exem- 
plo. queremos evitar de digitar essas instruções em 
cada um desses programas. Para isso: 


1 - Digitar somente as instruções comuns e 
salvar no disco na forma de texto. 


NEW 

200 OPEN "A: CADASTRA. ARQ" AS #1 LEN=88 
202 FIELD #1.30 AS N$.50 AS E$.8 AS S$ 

SAVE "GABARI TO. FNT". A 


2 - Incluir as instruções em cada um dos 3 
programas: 


LOAD "PROG1" 

MERGE "GABARI TO. FNT" 
SAVE "PROG1" 

LOAD "PROGP" 

MERGE "GABARI TO. FNT" 
SAVE "PR0G2" 

LOAD "PR0G3" 

MERGE "GABARI TO. FNT" 
SAVE "PR0G3" 


2 - A numeração das linhas dos comandos de 
abertura dos arquivos poderá ser padronizada entre 
6000 e 6999 e a execução da abertura poderá ser efe- 
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tuada por um comando GOSUB. Assim, todos os comandos 
de abertura de todos os arquivos que possam ser neces- 
sários aos diversos programas do sistema ficarão agru- 
pados entre as linhas 6000 e 6999. 

Isto fará com que a listagem do programa seja 
menos poluída, pois no núcleo principal teremos apenas 
uma instrução do tipo: 

200 GOSUB 6010 

sem a poluição causada pelas instruções: 

200 OPEN "A: CADASTRA. ARQ" AS #1 LEN = 88 
202 FIELD #1,30 AS N$,50 AS E$,8 AS S$ 

Neste caso, a rotina fonte deve ser digitada 
conforme o seguinte: 

6010 OPEN "A= CADASTRA. ARQ" AS #1 LEN = 88 
6012 FIELD #1,30 AS N$,50 AS E$,8 AS S$ 

6014 RETURN 


SAVE "GABARI TO. FNT", A 

3-0 número do drive pode ser definido em 
uma variável, para que o programador possa, rapidamen- 
te, definir os arquivos em drives distintos, o que é 
importante, principalmente na fase de implantação do 
s i stema . 

Em vez de: 

OPEN "A: CADASTRO" AS #1 LEN=47 

Utilizar: 

OPEN DC$+"CADASTRO" AS #1 LEN=47 

onde a variável DC$ possa ser definida no início do 
programa com ; 

DC$ = "Ar- 
ou lida, apartir do teclado com: 

INPUT "Em qual drive esta o Cadastro ";DC$ 

ou, ainda, lida a partir de um arquivo de parâmetros 
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onde está gravada a configuração do sistema de arqui- 
vos . 

Essa possibilidade é muito importante nos ca- 
sos em que o programador pretenda fazer farta distri- 
buição do programa, pois haverá interessados que dis- 
põem de apenas 1 único drive, enquanto que outros, 
mais afortunados, disporão de muitos drives. Nestes ca- 
sos, o programador não precisará percorrer a listagem, 
instrução por instrução, a procura dos A: e B : para 
serem a I ter ados . 


4 - As mesmas observações acima podem ser 
aplicadas ao nome do arquivo. Isto é muito importante 
nos casos de programas que executam processamentos 
mensa i s . 

Nestes casos, é comum utilizarmos a identifi- 
cação do mès como parte do nome dos arquivos, como por 
exemp I o : 


MOVTO. JAN 
PARAM. JAN 

Definindo-se o nome do arquivo em uma variá- 
vel, o mesmo programa poderá ser executado com arqui- 
vos de meses diferentes: 

100 INPUT "Qual o mes " ; ME$ 

101 AROS = "MOVTO. "+ME$ 

102 OPEN "A="+ARQ$ AS #1 LEN=47 


5 - Os arquivos acessados pelo programa não 
necessitam estar todos simultaneamente abertos. Em ca- 
da parte do programa, devemos abrir somente aqueles 
arquivos que serão acessados por aquela parte e tão 
logo um determinado arquivo não seja mais necessário, 
devemos proceder ao seu fechamento, inclusive para 
maior proteção e segurança dos dados. 

Desse modo, se um programa for operar com 7 
arquivos, não é racional abrir todos eles no início do 
programa e fechá-los, todos, somente ao final do pro- 
grama. A não ser que isso seja realmente necessário. 

Lembre-se que a quantidade máxima normal de 
arquivos que podem estar simultaneamente abertos é fi- 
xada pelo sistema operacional durante a inicialização 
do sistema, quando são definidos os "buffers”, um para 
cada arquivo. Havendo a necessidade de man i pu I acão de 
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mais de um arquivo simultaneamente, o arquivo deverá 
definir mais espaço para os "buffers”. No MSX, por 
exemplo, isso pode ser feito pelo comando MAXFILES. 

Lembre-se também que existe uma correspondên- 
cia inversa entre a quantidade de "buffers” e o espaço 
disponível na memória para o programa. 

Para poder operar somente com aqueles arqui- 
vos necessários em cada parte do programa, o número de 
referência do arquivo pode ser definido em uma variá- 
vel, como no exemplo seguinte: 

OPEN "A: CADASTRO" AS # NARQ LEN=47 

6 - Para facilitar a compreensão da estrutura 
dos diversos arquivos acessados pelo programa, as ins- 
truções de abertura e correspondentes instruções de 
definição de campos podem ser agrupadas em um certo 
trecho do programa, sendo executados por meio de co- 
mandos GOSUB. 

6000 ' 

6002 ’ ABREARQ- FNT = Abertura de Arquivos 

6004 ' 

6010 ’ > Arquivo de Parâmetros 

6012 OPEN DR$+"CMPAR.AR<r AS «NARQ LEN=51 

6014 FIELD «NARQ. 30 AS TT$.2 AS NM$.9 AS DM$.2 AS RC$, 

2 AS RM$.2 AS UD$,2 AS UMI.2 AS UA$ 

6016 RETURN 

6020 ’ > Cadastro de Materiais 

6022 OPEN DR$+"CMCAD . ARQ" AS «NARQ LEN=63 

6024 El ELO «NARQ. 4 AS CD$.25 AS DC$.10 AS TC$.4 AS SR$. 

4 AS SLI.4 AS QM|. 6 AS UE$.6 AS US$ 

6026 RETURN 

6030 ' > Arquivo de Movimento 

6032 OPEN DR|+"CMMOV.ARQ" AS «NARQ LEN=25 

6034 FIELD «NARQ, 6 AS MD$.10 AS MHÍ.4 AS MC$.4 AS MQ$, 

1 AS MV$ 

6036 RETURN 


SAVE "ABREARQ. FNT”. A 

Salvar esta rotina para ser utilizada no sis- 
tema apresentado no capítulo 3. 

7-0 comando FIELD, como vimos, define a es- 
trutura do arquivo randômico, separando os campos que 
const i tuem o reg i stro . 
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De acordo com o objetivo de um trecho do pro- 
grama, os campos contíguos podem ser agrupados em ou- 
tros campos para facilitar a manipulação dos mesmos. 

Nestes casos, podemos encadear vários coman- 
dos FIELD, contendo em cada um, a estrutura mais con- 
veniente para a manipulação adequada das informações. 

100 OPEN "CLIENTES. ARO” AS #1 LEN=77 
1 02 FIELD #1 ,20 AS NOME$,30 AS EDR$,5 AS CEP$, 

20 AS MUN$ , 2 AS FED$ 

104 FIELD #1,50 AS X$,27 AS LCAL$ 

106 MAX = LOF< 1 )/77 
108 FOR REG = 1 TO MAX 
110 GET #1 , REG 

112 PRINT "Nome = "NOME$ 

114 PRINT "Endereço = "EDR$ 

116 PRINT "Localidade = LCAL$ 

118 NEXT REG 
120 END 

Observe que no programa acima, a instrução: 

116 PRINT "Localidade = LCAL$ 

equivale a instrução: 

116 PRINT "Localidade = "CEP$;MUN$; FED$ 

Para compreender bem o funcionamento dos co- 
mandos de acesso ao disco, recomenda-se elaborar di- 
versos programas curtos, enfocando, em cada um deles, 
um aspecto diferente do acesso ao disco. 

Para sentir a performance dos acessos, o pro- 
gramador deve executar os testes em cima de arquivos 
com uma quantidade considerável de registros e, para 
evitar uma grande perda de tempo digitando um grande 
arquivo, recomenda-se desenvolver um programa especí- 
fico que "cr i a " automaticamente tais arquivos. 

100 ' =============================================== 

102 * CRIARQ = Cria um arquivo com dados ficticios 
104 ' =============================================== 

106 ' Roberto Watanabe 22/03/87 
108 • 

200 , 

202 , Definições iniciais 
204 , 

210 NARQ=1 
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212 DRIVE$="A:" 

214 ARQ$="CADASTRO . ARO” 

216 GOSUB 6018 

300 * 

302 ' Cria as informacoes aleatoriamente 
304 ' 

318 FOR REG = 1 TO 1000 
312 NP$ = ”” 

314 II = RND( 1 ) * 20 

316 II = II + 10 

31 B FOR J = 10 TO II 

320 NP$ = NP$ + CHR$( 65+RNDÍ 1 )*26 ) 

322 NEXT J 

324 SALARIO = RND{ 1 ) * 30000 
326 LSET NF$ = NP$ 

328 LSET SF$ = MKS$( SALAR I 0) 

338 PUT UNARQ.REG 
332 NEXT REG 

400 ' 

402 ' Final do Programa 

404 * 

410 CLOSE #NARQ 

412 PRINT "Final do Processamento" 

414 END 

6000 ' 

6002 ’ Rotinas de abertura de arquivos 
6004 ’ 

6010 ' Cadastro de Funcionários 
6012 OPEN DRIVE$+ARQ$ AS #NARQ LEN=34 
6014 FIELD #NARQ, 30 AS NF$.4 AS SF$ 

6016 RETURN 


ORDENAÇSO DE ARQUIVOS 

Uma das grandes vantagens do computador é sem 
sombra de dúvida, a sua capacidade de manipular gran- 
des quantidades de dados em pouco tempo. 

Dentre as manipulações possíveis, aquela que 
mais caracteriza a facilidade de tratamento de dados 
é a possibilidade de ordená-los segundo um certo 
critério. Na contabilidade, por exemplo, independente- 
mente da ordem em que os dados foram inseridos, deve- 
se emitir determinados relatórios com os dados ordena- 
dos segundo a data, como é o caso do Diário, e outros 
relatórios devem ser emitidos com os dados ordenados 
segundo o código das contas, como é o caso do Razio. 
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No Controle de Estoques, existem relatórios 
que devem apresentar os materiais por ordem alfabética 
e outros por ordem de código do produto. 

Analisando as muitas aplicações de computado- 
res iremos constatar que em todas elas, havendo a pos- 
sibilidade de apresentação dos dados ordenados confor- 
me critérios diversos, o programa ganha novos impulsos 
sendo mais va I or i zado . 

Para o computador é indiferente se, para a 
realização de um determinado serviço, ele terá que 
executar algumas poucas ou milhares de intruções. 

Compete ao programador, programar o computa- 
dor para tal. 

Manipular dados é sempre uma atividade traba- 
lhosa, repetitiva e cansativa. 

Pegue, por exemplo, um relatório de 200 pági- 
nas e tire 10 cópias. Isso vai resultar em uma pilha 
com 2.000 folhas. Agora separe os 10 exemplares. Tra- 
balhoso e cansativo não? 

Analisando as diversas alternativas em que 
isso pode ser feito, iremos verificar que algumas de- 
las, mais racionais, irão ocasionar um trabalho menor. 

No caso em questão, se dispusermos de uma 
grande mesa podemos empregar a técnica de "colocação", 
isto é, da pilha principal, pegamos um pequeno maço de 
folhas, e andando ao redor da mesa, vamos "colocando", 
folha por folha, cada uma das 10 cópias. Completada a 
colocação das 10 cópias, o maço que está em nossas 
mãos estará automaticamente posicionado na segunda pá- 
gina do relatório, de modo que podemos repetir a ope- 
ração anterior, "colocando", desta vez, a segunda pá- 
gina. Repetindo-se esse ciclo 200 vezes, teremos os 10 
exemplares perfeitamente separados. Isso, é claro, se 
a máquina copiadora não cometeu nenhum engano, tirando 
algumas cópias a mais ou a menos. 

A técnica com que iremos manipular os dados, 
pode depender do tipo de dados que dispomos. 

No exemplo de separar as cópias de um relató- 
rio, podemos ter um outro caso em que desejamos tirar 
200 cópias de um relatório de apenas 10 páginas. 

Empregar a técnica anterior neste caso, sig- 
nifica que teremos que ter a nossa disposição, uma 
enorme mesa onde possamos dispor todas as 200 cópias. 
Nesse caso, recomenda-se a técnica da "remoção". Nessa 
técnica, retiramos da pilha principal, onde há 2.000 
folhas, maços de exatamente 200 folhas e dispomos tais 
maços, lado a lado, ao longo da mesa. Teremos, portan- 
to, 10 pilhas distintas. Feito isso, andamos em redor 
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da mesa, "retirando" uma folha de cada pilha. Após a 
última pilha, teremos, nas mãos, um relatório comple- 
to. Repetindo esse ciclo 200 vezes, teremos separado 
os 200 exemplares do relatório. 

Para a ordenação de dados através de um com- 
putador, também não existe apenas uma única técnica. 

Muitos pesquisadores elaboraram técnicas es- 
peciais e algumas delas ficaram tão famosas que são 
conhecidas pelo nome do seu autor. 

0 programador deve analisar alguns aspectos 
importantes antes de adotar alguma técnica de ordena- 
ção de dados. Vejamos algums desses aspectos: 

A - Como os dados se encontram e que tipo de c I as- 
si f i cação é dese j ada . 

0 - Ou a I o tamanho do. espaço de trabalho disponí- 
vel, em outras palavras, qual o tamanho da 

W Mn 

mesa ? 

Vamos analisar o problema da ordenação de da- 
dos, em função da situação em que os dados se encon- 
tram, antes da ordenação. 


ORDENANDO UM ARQUIVO COM 
POUCOS REGISTROS FORA DE ORDEM 

Vamos supor que um arquivo já se encontra or- 
denado . 

Um cadastro de clientes, por exemplo, encon- 
tra-se normalmente ordenado por ordem alfabética de 
nomes, e nesse cadastro queremos inserir um novo cli- 
ente . 

Inserir um novo cliente, significa adicionar 
apenas um novo registro, e neste caso, querer aplicar 
um algoritmo de ordenação em todo o arquivo, é uma 
tentativa meio irracional, mesmo que o tal algoritmo 
seja dos mais eficientes possíveis. 

Mesmo se tratando de uma simples inserção, 
isso não pode_ser efetuado diretamente, pois um arqui- 
vo em disco não é como um fichário com fichas de pape- 
lão, onde inserir uma nova ficha significa "encaixar" 
a mesma no meio das outras e, se ficar apertado, dar 
uma empurradinha nas outras fichas. 

Nos arquivos em meio magnético, os registros 
ficam fisicamente "presos" naquelas posições onde fo- 
ram gravados e a atividade de "deslocar" os registros 
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é inviável. 0 que é possível, é a leitura num lugar e 
a gravação em outro local um pouco deslocado, para fa- 
zer de conta que estamos deslocando. 

Dependendo do espaço disponível no disco, po- 
demos empregar uma das duas técnicas apresentadas a 
segu i r s 


A - Empregar 3 arquivos. 

Criar um arquivo temporário e transferir os 
registros, anteriores àquele que desejamos inserir, 
para o novo arquivo. Gravar no arquivo novo, o novo 
registro. 

Transferir os demais registros para o arquivo 

novo . 


Exemp I o .• 


300 ■ 

30? 'Entrada de Dados 

304 ’ 

310 1NPUT ”nome" ; NÍ 
31? INPUT "endereço"; E$ 

400 ’ 

40? 'Abre os Arquivos 

404 ' 

410 OPEN "A: CADASTRO. ARO" AS 01 LEN=80 
41? FIELD #1,30 AS N1$,50 AS El $ 

414 FIELD #1,88 AS C1$ 

41 B OPEN "A: CADASTRO. $$$’’ AS #? LEN =88 
418 FIELD #3,30 AS N3$.5B AS E?$ 

4?0 FIELD #3,80 AS C?$ 

500 ' 

503 'Transferencia Inicial 

504 ’ 

510 CONTROLEI = 1 

51? MAXREGH = LOFÍ1) / 80 
514 FOR RcGt=1 TO MAXREGIi 
516 GET #1 . R EG% 

518 IF C0NTR0LEl=3 THEN GOTO 119 
530 IF NI $>N$ THEN LSET C3$ = C1$ : 

LSET N3$ = N$ : 
LSET E?$ = E$ : 
PUT #3?.REGt = 
CONTROLEI = 3 : 
GOTO 610 
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522 LSET C2$ = C1$ 

524 PUT #2, REGI 
526 GOTO 614 

6 00 ’ 

602 'Transferencia Final 

604 ' 

610 LSET C2$ = C1$ 

612 PUT #2, REGl+1 
614 NEXT REGI 

700 ' 

702 'Final do Programa 

704 ' 

710 MAXREG1 = MAXREGl+1 

712 PRINT "O Cadastro contem "MAXREGt" registros 
714 CLOSE #1 
716 CLOSE #2 

718 Kl LL "A : CADASTRO . ARO" 

720 NAME "As CADASTRO. $$$" AS "A = CADASTRO. ARQ" 

722 END 


B - Um único arquivo. 

Neste caso, iremos "deslocar" os registros, 
lendo-os e gravando-os um pouco deslocados. 

Na alternativa de não se conhecer, a priori, 
a posição onde o novo registro deve ser encaixado, o 
programa deve procurar essa posição, varrendo todo o 
arquivo. 


300 • ... 

302 'Entrada de Dados 

304 » 

310 INPUT "nome".N$ 

312 INPUT "endereço"; E$ 

<100 ’ 

<102 'Abre arquivos 
< 10-1 * 

410 OPEN "As CADASTRO. ARQ" AS #1 LEN=80 
412 FIELD #1.30 AS N1$.50 AS E1$ 

414 FIELD #1.80 AS C1$ 

500 ' 

502 'Transferencia Inicial 

504 ' 

510 CONTROLEI = 1 
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512 MAXREG1 = L0F{1 )/80 

514 FOR REGt=MAXREG$ TO 1 STEP -1 

51 B GETM.REGÍ 

518 IF NI $>N$ THEN PUT #1,REGt+1 : GOTO 528 
520 LSET NI $ = N$ 

522 LSET El $ = E$ 

524 PUT H1.REG1+1 

528 REGI = 1 

528 NEXT REGÍ 

600 ' 

802 'Final do Programa 

804 ' 

810 MAXREGt = MAXREGÍ + 1 

812 PR I NT"0 cadastro contem"MAXREGV’regisros" 
614 GLOSE #1 
618 CLOSE #2 
618 END 


0 método B apresenta a vantagem de necessitar 
de um espaço menor no disco, porém existe a possibili- 
dade de ocorrer um imprevisto durante o deslocameto 
dos registro, provocando a perda do arquivo. 

Se o programa já souber a posição em que o 
novo registro deve ser encaixado, o programa pode va- 
ler-se de uma rotina, como a abaixo apresentada, para 
deslocar os registros finais e "abrir" uma vaga para 
poder-se inserir o novo registro. 


1300 ' — — -- 

1302 ' ROTINS.FNT = Insere Novo Material 

1304 ' 

1310 IF REGÍ > MXl THEN GOTO 1358 
1312 LOCATE 0.12 

1314 PRINT TAB( 9 )STR ING$(22,”*") 

1316 PRINT TAB(9)"Estou providenciando a" 
1318 PRINT TAB< 9)” inserção do registro.” 
1320 PRINT TABI 12)"NA0 INTERROMPA I" 

1322 PRINT TAB(9)STRING$(22.”*”) 

1324 GOSUB 5350 

1332 REF = HX1 - REGI 

1340 FOR Ct=MXl TO FIRST1 STEP -1 

1342 GET «NARQ.Ct 

1344 PUT «NARO.GVH 

1346 LOCATE 5+30*(MXV-»+1 )/REF.19 

1 34B PRINT ”>” 

1350 NEXT Ct 
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1352 LOCATE 0.12 

1354 PRINT SPC( 1 60 ) : PRINT SPC(160) 

1350 RETURN +30*(MX%-CVH )/REF.19 

1348 PRINT 

5350 ' 

5352 ' HAPAACC.FNT = Mapa de Acompanhamento 

5354 ' 

5356 'Mostra o estágio do processo 

5362 LOCATE 5.17 : PRINT "01"SPACE$<1 3 T50V' ; 

5366 PRINT SPACE$( 1 1 )~1 00V' = I OCATE 5.18 

5368 PRINT =FOR N=1 TO SPRINT ~ :NEXT N 

5370 RETURN 

SAVE "ROTINS.FNr\A 

Salvar esta rotina para ser utilizada no sis- 
tema apresentado no capítulo 9. 

As técnicas apresentadas são válidas quando 
se pretende inserir um novo registro em um arquivo já 
ex i stente . 

Vejamos como proceder para colocar em ordem 
arquivos que possuem alguns registros já gravados fora 
da ordem, ainda sem apelarmos para um algoritmo de 
ordenação . 

Existem várias técnicas para isso, mas vamos 
detalhar apenas uma delas, passo a passo. 


1 - Varrer o arquivo todo a procura dos re- 
gistros que estão fora da ordem. 

A cada registro que estiver fora da ordem, 
copiá-lo em um arquivo provisório. 

Colocar uma marca, por exemplo ”$$$”, no re- 
gistro que foi copiado. 

0 arquivo provisório ficará, assim, com todos 
os registros fora de ordem. 


2 - Para cada registro do arquivo provisório, 
varrer o arquivo a procura da posição 
correta de encaixe do registro. 


3 - Varrer novamente o arquivo a procura de 
um registro livre, que foi marcado com 
"$$$”. 
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4 - Deslocar os registros entre a posição li- 

vre e a posição de encaixe, transferindo 
a posição livre para a de encaixe. 

5 - Copiar o registro do arquivo provisório 

na pos i ção I i vre . 

6 - Repetir o ciclo a partir do passo E. 

A listagem da rotina é apresentada a seguir: 


21 00 ’ 

2102 * RTPOEORD.FNT = Poe em ordem sem ordenar 

2104 ' 

2110 GET «A1.1 
2112 A$ = N$ 

2114 HT = 0 

2118 ’ Retira os registros fora de ordem, jogando-os 
no arquivo provisorio 
2120 FOR REG = 2 TO MREG 
2122 GET MA1.REG 

2124 IF N$ > A$ THEN A$ = N$. GOTO 2140 
2126 MT = MT + 1 

2128 GET UAI. REG - 1 

2129 LSET M$ = N$ 

2130 PUT «A2.MT 
2132 LSET N$ = "SSS" 

2134 PUT «A1.REG - 1 

2136 GET «Al. REG 

2138 AS = NS 

2140 NEXT REG 

2150 ' Procura a posicao de encaixe, desloca e encaixa. 
2152 FOR RT = 1 TO MT 
2154 GET «A2.RT 
2156 AS = MS 

2160 GOSUB 2200: 'Procura a posicao de encaixe. 

2162 IF EX = 0 THEN EX = MREG 
2170 GOSUB 2300: 'Desloca e encaixa. 

2172 GET «A2.RT 

2173 LSET NS = MS 

2174 PUT «A1.EX 
2176 NEXT RT 
2180 RETURN 


SAVE "RTPOEORD.FNT". A 
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2200 * - — - 

2202 ' RTPROCPE.FNT = Procura a posicao de encaixe 

2204 * — — 

221 0 EX = 0 

2212 FOR REG = 1 TO MREG 

2214 GET «A1.REG 

2216 I F N$ = "$$$” THEN GOTO 2224 

2218 IF N$ < A$ THEN GOTO 2224 

2220 EX = REG - 1 

2222 REG = MREG 

2224 NEXT REG 

2226 RETURN 


SAVE "RTPROCPE.FNT". A 


2300 ' 

2302 ' RTDESENC.FNT = Desloca e encaixa 

2304 ’ — 

2308 FOR REG = 1 TO MREG 
2310 GET 0A1.REG 

2312 IF N$ <> "$$$"+SPACE$<17) THEN GOTO 231 B 

2314 LIV = REG 

2316 REG = MREG 

2318 NEXT REG 

2330 IF LIV < EX THEN PS = 1 

2332 IF LIV > EX THEN PS = -1 

2334 FOR K = LIV TO EX-PS STEP PS 

2336 GET 0A1.K+PS 

2338 PUT #A1 . K 

2340 NEXT K 

2342 RETURN 


SAVE "RTDESENC.FNT". A 


Testar a rotina com o programa: 

100 * 

102 ' EXCOSORD.BAS = Coloca em ordem, sem ordenar 

104 * 

110 ' R.H.Watanabe 23/05/87 

112 ' 

300 - 

202 ' Definições iniciais 
204 ' 
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206 OPEN "cadastro. arq” AS «1 LEN-20 
208 FIELD «1.20 AS N$ 

210 OPEN "arqui vo.prv” AS «2 LEN-20 
212 FIELD «2.20 AS M$ 


214 

LSET 

N$ 

S 

"Antonio 

99 

PUT 

1.1 

216 

LSET 

N$ 

B 

"Benedito 

99 

PUT 

1.2 

218 

LSET 

N$ 

S 

"Carlos 

99 

PUT 

1.3 

220 

LSET 

N« 

s 

"Ivo ** 

99 

PUT 

1.4 

222 

LSET 

N$ 

= 

"Denise 

99 

PUT 

1.5 

224 

LSET 

N$ 

s 

"Edson 

99 

PUT 

1.6 

226 

LSET 

N$ 

s 

"Felicio 

99 

PUT 

1.7 

228 

LSET 

N$ 

s 

"Gastao 

99 

PUT 

1.8 

230 

LSET 

N$ 

s 

"Knese ** 

99 

PUT 

1.9 

232 

LSET 

N$ 

s 

"He 1 i o 

99 

PUT 

1.10 

234 

LSET 

N$ 

s 

"Jaime 

99 

PUT 

1.11 

236 

LSET 

N$ 

s 

"Luci ana 

99 

PUT 

1.12 


238 

240 

242 

300 

302 

304 

310 

312 

314 

316 

318 

320 

330 

332 

334 

336 

338 

340 

342 

344 

346 

348 


MREG = 
Al « 1 

A2 = 2 
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Teste da Rotina de Ordenacao 

PRINT "*** INICIAL ***" 

FOR N - 1 TO MREG 
GET 1.N 
PRINT N.N$ 

NEXT N 
GOSUB 2100 

PRINT ”*** ORDENADO ***" 

FOR N = 1 TO MREG 
GET 1.N 
PRINT N.N$ 

NEXT N 

PRINT "*** FIM ***" 

CLOSE #1.»2 
Kl LL "CADASTRO. ARQ" 

Kl LL "ARQUI VO.PRV" 

END 


MERGE "RTPOEORO. FNT” 
MERGE "RTPROCPE . FNT" 
MERGE "RTDESENC. FNT” 
SAVE "EXGOSORD. BAS" 
RUN 
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ORDENANDO UM ARQUIUO COM 
MUITOS REGISTROS FORA DE ORDEM 


A ordenação de um arquivo em situações em que 
a ordem dos registros é desconhecida, isto é, os re- 
gistros poderão estar totalmente misturados, parcial- 
mente ordenados ou mesmo ordenados segundo uma ordem 
desconhecida, é uma tarefa um pouco mais complexa, 
comparada aquela situação em que é conhecido o crité- 
rio de ordenação. 

Nestes casos, antes de adotar um algoritmo 
eficiente, devemos analisar alguns pontos importantes 
que influem na velocidade da ordenação. 

0 algoritmo, qualquer que seja ele, irá efe- 
tuar uma certa quantidade de comparações e trocas de 
pos i ções . 

0 programador deve estimar o tempo total des- 
sas comparações e trocas. Considerando que tais tempos 
dependem fundamentalmente da configuração do seu com- 
putador, realize alguns ensaios comparativos e anote 
no seu Caderno de Dicas o tempo unitário, executando 
programas do tipo: 


100 TIME = 0 
1 02 FOR N=1 TO 1000 
104 NEXT N 

106 PRINT "TEMPO= T I ME/60 

108 END 


100 TIME = 0 
1 02 FOR N=1 TO 1000 
104 A = B 
106 NEXT N 

108 PRINT ”TEMPO= T I ME/60 ;"s" 

110 END 


100 TIME = 0 
10H FOR N=1 TO 1000 
104 IF A=B THEN GOTO 106 
106 NEXT N 

108 PRINT "TEMPO= ”;T IME/60;"s” 
110 END 
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No computador em que efetuei esses ensaios, 
obtive os seguintes tempos: 


- cada I oop FOR . . . NEXT 

- cada transferência do tipo A = B 

- cada comparação com IF 


1 , 96 mseg 
1,42 " 

2,55 " 


Suponhamos que desejamos ordenar um certo 
conjunto contendo 1000 números e o algoritmo emprega- 
do efetue N*N/2 comparações e N*N/4 trocas. Neste ca- 
so, o tempo total será calculado conforme o seguinte: 


-FOR ... NEXT 

- Comparações 

- Trocas 


1 000 * 1 000/2 * 
1 000 * 1 000/2 * 
1000*1000/4 * 


1,96 = 960.000 
2,55 = 1 .275.000 
1,42 = 355.000 


TOTAL 


= 2.590.000 mi I i ssegundos 


o que representa cerca de 43 minutos. 

Observe que esse tempo, corresponde a orde- 
nação do conjunto, supondo que o mesmo já esteja na 
memória. No caso de ordenação de arquivos em disco, 
devemos considerar o tempo gasto para a transferência 
das informações do disco para a memória e, após a or- 
denação, o tempo gasto para a transferência das infor- 
mações da memória para o disco. 

O tempo de leitura e de gravação no disco de- 
ve ser levantado por meio de ensaios, pois depende 
também da configuração do seu computador. Utilize um 
programa do tipo: 


100 OPEN "A .TESTE. ARO" AS #1 LEN=1 
102 FIELD #1.1 AS CAMPO* 

104 LSET CAMPOS = "A” 

106 TIME = 0 
108 FOR REG=1 TO 1000 
110 PUT #1,REG 
112 NEXT REG 

114 TI = TIME = TIME = 0 
116 FOR REG=1 TO 1000 
118 GET #1 . REG 
120 NEXT REG 
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t22 T2 = TIME 

124 PRINT "TEMPO PARA GRAVAGAO="; TI /60;"s" 
126 PRINT "TEMPO PARA LEITURA =".T2/60;"s" 
128 END 


Repita o ensaio com outros tamanhos de regis- 
tros e monte uma tabela comparativa do tipos 


TAMANHO DO REGISTRO 
(BYTES) 


10 

40 

70 

100 

130 


TEMPO GASTO POR REGISTRO 


NA GRAVAÇÃO 


NA LEITURA 


O programador verá que os tempos de acesso ao 
disco são relativamente "grandes" quando comparados 
aos tempos de manipulação de dados na memória. Porisso 
é importante escolher um algoritmo de ordenação que 
efetue o mínimo de leituras e gravações. 

Na ordenação de um Cadastro de Fornecedores, 
por exemplo, estarão em jogo as seguintes informações? 


Nome 

20 

Endereço 

50 

CEP 

5 

C i dade 

17 

Estado 

2 

Valor 

4 

Te 1 ef one 

7 

C.G.C. 

14 

Inscrição Estadual 

9 


TOTAL = 128 bytes 

Uma das idéias seria a de se efetuar a orde- 
nação totalmente na memória. Para isso. o programa te- 
ria que inicialmente, transferir todo o conteúdo do 
arquivo para a memória, em variáveis do tipo NOME$( N ). 
EDR$( N ) . etc., depois efetuar a ordenação propriamente 
dita e. terminada a ordenação, gravar de volta no dis- 
co. as informações já ordenadas. 
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100 * 

1 02 ' Ordenacao na Memória 

104 ' 

1 06 OPEN "ARQUIVO” AS #1 LEN=128 

108 FIELD #1.20 AS N$.50 AS E$.5 AS G$, 

17 AS M$,2 AS F$ . 4 AS V$. 

7 AS T$. 14 AS G$,3 AS 1$ 
110 FIELD #1.128 AS X$ 

112 N = LOF( 1 ) / 128 
114 OIM G$( N ) 

116 FOR REG=1 TO N 
118 GET 1 ;REG 

120 G${ REG ) = X$ 

122 NEXT REG 
126 K = N 

130 X u 0 

132 ZL =CVS{ Ml D${ G${ 1 ) . 35, 4) ) 

134 FOR J=2 TO K 

136 ZH = CVS(MI D$( G${ J ) , 35, 4 ) ) 

138 IF ZKZH THEN SWAP G$( J ) . G$( J-1 ) = 

X = 1 : 

ELSE ZL=ZH 

140 NEXT J 
1 42 K = K - 1 

144 IF X=1 AND K>2 THEN GOTO 130 


A vantagem desse procedimento é que será efe- 
tuada apenas uma única leitura e uma ún[ca gravação 
dos registros, mas, na maioria das aplicações, iremos 
deparar com o problema da área livre na memória para 
podermos armazenar todas as informações. 

No Cadastro acima, cada registro acupa 128 
bytes. Essas informações, quando definidas na memória, 
na forma de strings, passarão a ocupar 3 bytes a mais 
por variável, o que fará com que cada registro de 128 
bytes, quando transferido para a variável G$, ocupe 
(128 + 3) = 131 bytes na memória. 

Vamos calcular a quantidade de registros que 
poderão ser armazenados na memória. 

Supondo que a memória do seu computador, des- 
contado o espaço ocupado pelo programa de ordenação, 
disponha de 20.000 bytes livres, o que pode ser cons- 
tatado pelo comando PRINT FRE{””), a quantidade máxima 
será de 20000/131 = 152 registros na memória, o que é 
muito pouco para a maioria das aplicações. 


Uma das saídas seria a de se aumentar o tama- 
nho da memória do seu computador, mas isso não é fácil 
nem barato. 

Resta, então, a alternativa de ordenação in- 
direta, armazenando apenas . as informações que farão 
parte da chave de ordenação. Nesta alternativa, o pro- 
grama deve efetuar os seguintes passos: 


1 - leitura de todos os registros, definindo. 

na memória, uma variável com as informa- 
ções que compõem apenas a chave de orde- 
nação . 

2 - utilizar um a[goritmo que ordene um ve- 

tor de posição, que após a ordenação, 
possua a posição relativa dos registros. 

3 - Trocar as posições relativas dos regis- 

tros no arquivo, lendo o registro em um 
endereço e gravando-o no endereço indica- 
do pelo vetor de ordenaçlo. 


Nesta alternativa, a área livre da memória 
sera usada para o armazenamento somente da chave de 
ordenaçao e não para o registro todo. Para a ordenação 
de 500 registros segundo o número de telefone, neces- 
sitaremos de (7 + 3) * 500 = 5.000 bytes na memória. 

Se a chave for constituída de CEP + TELEFONE 
necessitaremos de (5 + 7 + 3) * 500 = 7.500 bytes ná 
memor i a . 

Se a chave for constituída pelo endereço, ne- 
cessitaremos de (50 + 3) * 500 = 26.500 bytes, o 'que, 
evidentemente, só teremos quando a memória for incre- 
mentada com mais módulos de expansão. 

Esgotadas as alternativas de ordenação total 
ou parcial na memória, restarão as alternativas de or- 
denaçao direta no disco. 

A técnica de se efetuar a ordenação direta no 
disco, isto e, comparando 2 registros de cada vez e 
trocando ou não suas posições a cada comparação, deve 
ser utilizada somente em casos extremos, pois esta 
técnica irá promover uma grande troca de posições dos 
registros, e isso irá diminuir, consideravelmente, a 
confiabilidade nos dados, tendo em vista que em cada 
gravaçao, existe o risco de o cabeçote de gravação não 
conseguir gravar a informação com a fidelidade neces- 
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sária, além de aumentar consideravelmente o tempo de 
ordenação por causa da grande quantidade de leituras 
e gravações que serão necessárias. 

Antes de partir para esse caso extremo, o 
programador deve pesquisar a eficiência de outras al- 
ternativas, tais como dividir o arquivo em vários ar- 
quivos menores, ordenar individualmente cada um deles 
e, após as ordenações, juntar novamente todos esses 
ar qu i vos em um único. 

Por exemplo, desejando-se ordenar um Cadastro 
com 1.000 Funcionários, tendo cada registro o compri- 
mento de 67 bytes, iremos necessitar de um espaço na 
memória de (67 + 3) x 1.000 = 70.000 bytes, o que tor- 
naria inviável a ordenação na memória. Porém, se esse 
arquivo for dividido em 4 outros arquivos menores, ca- 
da um desses outros arquivos irá ter em média 

1 .000 / 4 = 250 reg i stros, 

de modo que o espaço necessário na memória, para a or- 
denação de cada um desses arquivos separadamente, será 
de (67 + 3) x 250 = 17.500 bytes, o que torna viável a 
ordenação . 

Vejamos os passos dessa técnica: 


1 - Analisar os Nomes no Cadastro, tentando 
estimar a distribuição percentual da primeira letra 
dos nomes. Assim, descobrimos, por exemplo, que 25% 
dos funcionários tem o nome começando com as letras 
de A a E, mais 25% com as letras de F a L e 25% com 
as I etr as de M a P. 


2 - Executar um programa que, a partir do Ca- 
dastro, crie 4 novos arquivos, para onde serão trans- 
feridos os dados cadastrais, em função da primeira le- 
tra do nome. 


90 MAXFILES = 5 

108 OPEN "A: CADASTRO. AR<T AS 01 LEN=67 
102 FIELD 01,67 AS G$ 

104 REG = LOF(I) / 67 

106 OPEN "A: PARTE .A~ AS 02 LEN=67 

108 FIELD 02,67 AS GA$ 

110 OPEN ”A= PARTE. B" AS 03 LEN=67 
112 FIELD 03,67 AS GB$ 

114 OPEN "A: PARTE. C” AS 04 LEN=67 


96 


116 FIELD #4,67 AS GC$ 

118 OPEN "Ar PARTE. D" AS #5 LEN=67 
128 FIELD #5.67 AS GD$ 

122 GA = 8 

124 GB = 0 

126 GC = 8 

128 GD - 8 

138 FOR N=1 TO REG 

132 GET #1 , N 

134 IF LEFT$( G$, 1 )<="E” THEN GA=GA+1 : 

PUT #2. GA = GOTO 142 
136 IF LEFT$( G$, 1 )<=”L" THEN GB=GB+1 : 

PUT #3. GB = GOTO 142 

138 IF LEFT$(G$,1 )<="P" THEN GC=GC+1 : 

PUT #4, REGC = GOTO 142 
148 GD = GD+1 s PUT #5, GO 
142 NEXT N 
144 CLOSE 
146 END 

3 - Executar o programa de ordenação na memó- 
ria em cada um desses 4 arquivos criados. 


4 - Juntar todos os 4 arquivos em um único. 


Dos inúmeros algoritmos disponíveis para a 
ordenação na memória, podemos empregar um, muito co- 
nhecido, e amplamente empregado, que consiste em se 
comparar os elementos do conjunto, 2 de cada vez, por 
exemplo CHAVE(m) e CHAVE(n). Nos casos em que CHAVE(m) 
for maior que CHAVE(n), um vetor de posição ORDEM(m) 
deve ser incrementado, indicando que o elemento m, 
sendo maior que o elemento n, deve ocupar uma ordem 
maior, o que será representado pelo fato de ORDEM(m) 
ser ma i or que ORDEM( n ). 

0 núcleo do algoritmo será o seguinte: 


108 FOR M=1 TO REG 
102 FOR N=1 TO REG 
104 IF CHAVE( M )<CHAVE( N ) THEN 
ORDEM(N)=ORDEWN)+1 
1 06 NEXT N 
108 NEXT M 
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Vejamos um exemplo prático do funcionamento 
desse algoritmo: 

Sejam 5 números dados na sequência: 47, 87, 
13, 86 e 10. Vamos dispor esses números segundo uma 
tabela, para que possamos acompanhar, etapa por eta- 
pa, o desenvolvimento do 'algoritmo. Em cada etapa, 
um número é comparado com os demais e nos casos em 
que o número que se compara for menor que o número 
comparado, o vetor ORDEM, correspondente ao número 
comparado é incrementado: 


1 

2 

3 

4 

5 

6 


inicialmente, o vetor 
ORDEM contém zeros: 
comparar o 47 com todos: 

comparar o 87 com todos: 

comparar o 13 com todos: 

comparar o 86 com todos: 

comparar o 10 com todos: 


47 87 13 86 10 

0 0 0 0 0 

0 10 10 

0 10 10 

12 0 2 0 

1 3 0 2 0 

2 4 13 0 


Após essas comparações, o seguinte comando 
dará os números, na sequência inicial e na sequência 
ordenada : 


200 FOR 1=1 TO REG 

202 SA I DA( ORDEM( I )+1 ) = CHAVE( I ) 

204 NEXT I 

200 FOR 1=1 TO REG 

202 PR I NT CHAVE( I ) , SA I DA( I ) 

204 NEXT I 


O vetor ORDEM( n ) contém, em cada elemento, a 
posição relativa dos elementos da CHAVE após a ordena- 
ção. Obtido o vetor ORDEM, o programa poderá adotar 
uma das duas situações seguintes: 


1 - Utilizar o vetor ORDEM para poder, por 
exemplo, imprimir um relatório onde os itens apareçam 
em ordem, mas não alterar a ordem relativa dos regis- 
tros no arquivo. 


2 - Utilizar o vetor ORDEM para efetivamente 
alterar a posição relativa dos registros no arquivo, 
de modo que o arquivo ficará ordenado. 
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Na primeira situação, os registros do arquivo 
continuarão na mesma sequência em que se encontravam. 
A desvantagem é que se for necessário imprimir mais 
uma vez o relatório, os registros precisarão ser nova- 
mente ordenados, enquanto que a vantagem se resume em 
não se ter riscos de erros de gravações, visto que o 
arquivo é acessado somente para leituras. 

Na segunda situação, as posições relativas 
dos registros são alteradas, isto é, primeiro registro 
será gravado no lugar do terceiro que por sua vez será 
gravado no lugar do segundo, este no quinto e final- 
mente, este no primeiro lugar, obrigando a uma leitura 
e a uma regravação de praticamente todos os registros 
do arquivo. 

Uma rotjna que reorganiza os registros de um 
arquivo, em função da sequência contida em um vetor 
ORDEM, tem o seguinte aspecto: 

98 MAXFILES * E 

180 OPEN "ORIGEM" AS Hl LEN=56 

10E FIELD Hl. 56 AS GO$ 

10-1 OPEN "DESTINO" AS HE LEN*56 
106 FIELD HE. 56 AS GD$ 

108 REG = LOF(I) / 56 
110 FOR N = 1 TO REG 

1 1 5 GET H1.N 

114 LSET GD$ = GO$ 

116 PUT HE, ORDEM(N)+1 
118 NEXT N 


Como último recurso, esgotadas as tentativas 
de ordenação na memória, restará a alternativa de or- 
denação direta no disco. 

Um algoritmoi de ordenação direta no disco é 
apresentado a seguir: 


100 ' 

10E 'Ordenacao no Disco 

104 ' 

106 OPEN "ARQUIVO" AS Hl LEN=1E8 
188 FIELD Hl, 94 AS A$,4 AS Z$,30 AS 0$ 
110 FIELD H1.1EB AS T$ 

114 K « LOF( 1 ) / 1E8 
1S0 X - 0 
1EE GET Hl ,1 
1E4 ZL = CVS(Zt) 
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126 TL$ = T$ 

128 FOR J=2 TO K 
130 GET #1,J 
132 ZH = CVS(Z$) 

134 TH$ = T$ 

136 IF ZL<=ZH THEN ZL = ZH : 

TL$ = TH$ : 
GOTO 148 

138 LSET T$ = TL$ 

140 PUT #1. J 

142 LSET T$ = TH$ 

144 PUT 01.J-1 
146 X = 1 

148 NEXT J 
150 K = K - 1 

152 IF X=1 AND K>2 THEN GOTO 120 
154 CLOSE #1 
156 END 


ORDENAÇSO DE ARQUIVOS SEQUENCIAIS 

Tudo aquilo que foi visto nos parágrafos an- 
teriores, só se aplica a arquivos randômi cos, poi s os 
comandos de acesso direto a registros específicos do 
t ipo: 

105 GET #1 ,N 


OU : 

107 PUT #2, ORDE9K I )*1 


só são possíveis em arquivos randômicos. 

Então, os arquivos sequenciais não podem ser 
ordenados? 

A priori, a resposta seria NÃO, pois não 
existe comando do BASIC para o acesso direto aos re- 
gistros de arquivos sequenciais, de modo que não é 
possível acessar, aleatoriamente, um determinado re- 
gistro do arquivo. Mesmo que existisse tal comando, 
os registros possuem tamanhos diferentes e como ire- 
mos "trocar” de posição registros de tamanhos dife- 
rentes? O registro menor cabe no lugar do registro 
grande, mas o contrário será impossível. 

A solução mais prática é a de se transformar 
o arquivo sequencial em um arquivo randomico, classi- 
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ficar o arquiva randômico e transformá-lo, por fim, em 
arquivo sequencial novamente. 

100 MAXFILES = 2 

101 OPEN "ARQUIVO.SEQ" FOR INPUT AS #1 

102 OPEN "ARQUIVO. RND" AS *2 LEN=70 

106 n* - L 0 AS AS C *' E AS °*' 8 AS Pí ' 50 AS H * 

108 INPUT #1 . DAT$ . COD$, QUAN, PREGO. H I S$ 

110 LSET 0$ = DAT$ 

112 LSET C$ = COD$ 

114 LSET Q$ = MKI $( QUAN) 

116 LSET P$ = MKD$( PRECO) 

118 LSET H$ = HISTI 

119 N « N + 1 

120 PUT #2.N 

122 IF NOT E0F(1) THEN GOTO 108 
124 REG = N 
126 CLOSE «1 

128 GOSUB xxxx : 'Rotina de ordenação. 

129 OPEN "ARQUIVO. SEQ" FOR OUTPUT AS «1 

130 FOR N = 1 TO REG 
132 GET #2.N 

134 PRINT #1 , D$,C$,CVI(Q$),CVO(P$),H$ 

136 NEXT N 
138 GLOSE #1 
140 CLOSE #2 
142 END 

TÉCNICAS DE ACESSO AOS ARQUIVOS 

0 acesso aos arquivos é uma atividade que 
consiste na leitura dos registros a procura de uma de- 
terminada informação que foi armazenada anteriormente 
em algum registro do arquivo. 

Por exemplo, sabemos que no Cadastro de Cli- 
entes, exMste um registro com o endereço do Sr. Joa- 
quim de Oliveira. Dada a informação "Joaquim de Oli- 
veira", qual é o procedimento que o programa deve se- 
guir para encontrar o endereço do mesmo? 

_0 acesso aos arquivos é um assunto que muitas 
vezes não tem muito a ver com a forma de organização 
do arquivo, isto é, se sequencial ou randômico. 

A rotina poderá procurar o registro desejado, 
lendo um a um todos os registros do arquivo até encon- 
trar o registro procurado ou aplicar alguma técnica 
que permita "adivinhar" o número do registro ou pelo 
menos a região onde ele se encontra. 
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Vamos analisar os problemas de acesso, fazen- 
do uma analogia com um arquivo de fichas de papelão. 

Vamos supor que tenhamos em mãos um arquivo 
de clientes montado com fichas dp papelão, e vamos 
supor também que essas fichas estaro organizadas por 
ordem alfabética do Nome. 


Situação 1: Qual é o cliente que reside na rua Ver- 
guei ro, 102? 


Se você não conhece os dados do arquivo, isto 
é, não tem nenhuma "dica" de por onde começar, a única 
maneira de encontrar tal ciente, será consultar ficha 
por ficha, confrontando a informação "rua Vergueiro, 
102" com o endereço que consta em cada ficha, até en- 
contrar a informação desejada ou até encontrar o final 
do fichário. 

Nesta situação, serão acessados em média N/2 

fichas. 


Situação 2: Qual é o cliente mais antigo? 


Como as fichas estão em ordem alfabética, a 
ficha do cliente mais antigo pode estar em qualquer 
pos i ção . 

Neste caso, a procura é um pouco mais comple- 
xa que a procura apresentada na situação anterior, 
pois não temos nem mesmo a informação que deverá ser 
confrontada com a data de registro que consta nas fi- 
chas. 

A não ser que seja utilizada alguma técnica 
"especial" em que seja possível determinar a priori a 
ficha procurada, por exemplo pela cor um tanto quanto 
amarelada da ficha por causa da idade da mesma, a pro- 
cura deve ser realizada em 2 etapas, objetivando res- 
ponder as seguintes perguntas: 


1 - Ou a I a data mais antiga? 

2 - Qual o cliente com essa data? 


Para que a procura seja viável, devemos fazer 
determinadas suposições, por exemplo, supor, inicial- 


fnente, que o cliente mais antiga seja aquele da pri- 

í lcha ' Regendo, desse modo, a data de cadastra- 
mento desse cliente como sendo a mais antiga. 

„ . «. Fe l t0 J isso ' comparar essa data com‘a data de 

d0 s ? 9Undo cliente. Se essa nova data 
or anterior aquela adotada, passar a considerar como 

cliente' 5 antl9a a data de cadastramento desse segundo 

Repetindo-se esse procedimento até o último 

íiaá St o?t d V rqu i V0 ' saberemos qual é a data mais an- 
Tiga, satisfazendo a primeira parte do problema 

fichas NeSta Sltuaçã ° sera0 acessadas, em média, N 


Situação 3s Ou a I é a idade do Silvio de Oliveira ? 


Sabendo que o fichário está em ordem alfabé- 

11™' 3 1 1 6ba .'ioS' 7 1 0 na0 está - com certeza, na pri- 
meira metade do fichário. Neste caso. a procura deve 
ser iniciada a partir da metade do fichário. 

„ Caso não se encontre o nome "Silvio de Oli- 
veira , a procura pode ser encerrada antes do final do 

bética'° P0ÍS sabernos 1,116 0 mesmo está em ordem alfa- 

Nesta situação, serão acessadas, em média 
uma certa quantidade de fichas dependendo do "bom sen- 
so daquele que manuseia o fichário. 

_ Como se vê, existem no dia a dia, muitas si- 
nnfín 65 difere ntes da acesso às informações de um ar- 
pr í ada 6 P3ra C3da Uma delas existe uma técnica apro- 

de acesso?” 3 ' 3 importâncía em se analisar as técnicas 

. , l- er um registro de um arquivo, sinnifica 

^memór i a 1 " Um3 certa quantídad e de bytes do disco para 

a S + sabe ' a conexão do drive do disco com 

Ui r tr* 61 a por * i nterméd i o de um complexo cir- 

velocidíde qUe transmite b * te a b >te a uma certa 

Isso implica em dizer que o tempo nasto nara 
^leitura de um registro depende do tamanho do regis- 

I nf e I i zmente, não existe uma maneira de ler 

nrarfL 7* partedo registro. Em todas as íei turasé 
preciso ler o registro completo. 
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Desse modo, desejando-se diminuir o tempo 
gasto na busca de uma informação, a única saída é ten- 
tar, de alguma forma, diminuir a quantidade de leitu- 
ras no arquivo. 

A análise da estrutura de arquivo juntamente 
com as maneiras possíveis de acessar as informações 
nele contidas deve resultar em um algoritmo de busca 
em que a quantidade média de leituras em disco seja 
d imi nu i da ao máx imo . 

Vejamos algumas das técnicas mais empregadas: 


ACESSO SEQUENCIAL A ARQUIVOS 

A leitura dos registros é efetuada em sequên- 
cia, a partir do primeiro regitro, até encontrar o re- 
gistro desejado ou o final do arquivo. 


100 OPEN "MOVTO.ARQ" FOR INPUT AS #1 
102 INPUT "Qual o nome " ; N$ 

200 INPUT #1 ,NOME$. ENDE$. CIDADE$. ESTADO$ 
202 I F EOF( 1 ) THEN GOTO 400 
204 IF NOME$=N$ THEN GOTO 300 
20B GOTO 200 

300 PRINT ”*** ENCONTREI ***" 

302 PRINT "nome = ";NOME$ 

304 PRINT "endereço = " ; ENDE$ 

306 PRINT "cidade = CIDADES 

308 PRINT "estado = ESTADOS 

310 END 

400 PRINT "*** NAO ENCONTREI ***" 

402 END 


4.6.2 - Acesso Sequencial em arquivo randômico. 

A leitura dos registros é efetuada em sequên- 
cia, a partir do primeiro regitro, até encontrar o re- 
gistro desejado ou o final do arquivo. 

100 OPEN "MOVTO.ARQ" AS Ml LEN=67 

102 FIELD Ml. 20 AS N$.30 AS E$,15 AS C$.2 AS F$ 

104 REG = LOF( 1 ) / 67 
106 INPUT "Qual o nome NOMES 
200 FOR N=1 TOREG 
202 GET M1.N 

204 IF NOME$=N$ THEN GOTO 400 
206 NEXT N 


104 


300 PRINT "*** NAO ENCONTREI ***" 
302 ENO 

400 PRINT "*** ENCONTREI ***" 
402 PRINT "nome * " ; N$ 

404 PRINT "endereço = " ; E$ 

406 PRINT "cidade = " ; C$ 

408 PRINT "estado « " ; F$ 

410 ENO 


Lembrando sempre que a rotina de procura ge- 
ralmente não faz parte do núcleo principal do progra- 
ma, desenvo I ve- 1 a a parte para ser acessada por um 
comando GOSUB. 

1400 ’ 

1402 ' ROTPHOV.FNT * Rotina Procura um Movimenta 
1404 ' 

1406 ' Esta rotina permite procurar um 
1408 ' determinado registro no arquivo 
1410 ' de Movimento. 

1412 ’ R.M.Watanabe 20/04/87 

1416 REGI a 0 

1420 REGI . REGI + 1 

1422 IF REGI > MVl THEN REGt=0 ; RETURN 

1424 GET «NARQ.REG1 

1426 IF A$ > MO$ AND TIPO$ = MV$ THEN RETURN 
1428 GOTO 1420 

SAVE "ROTPMOV . FNT" , A 


Salvar esta rotina para ser utilizada no sis- 
tema apresentado no capítulo 9. 


ACESSO DIRETO EM ARQUIVO RANDÔMICO 

A leitura dos registros é efetuada diretamen- 
te no registro desejado. Para isso é necessário conhe- 
cer o número do registro. 


100 OPEN "MOVTO.ARQ" AS #1 LEN=67 

102 FIELD «1,20 AS N$,30 AS E$,15 AS C$.2 AS F$ 

104 MAX ■ LOFM) / 67 

106 INPUT "Qual o numero do registro " ; REG 
108 IF REG>MAX THEN PRINT"FORA DO ARQUIVO" : 
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GOTO 106 


202 GET #1,REG 

20-1 PRINT "nome = " ; N$ 

206 PRINT "endereço = ";E$ 
208 PRINT "cidade = " ; C$ 
210 PRINT "estado = ";F$ 
212 END 


BUSCA BINÓRIA EM ARQUIVO RANDÔMICO 

A leitura dos registros é efetuada dividindo- 
se o arquivo em duas partes, daí o nome da técnica, e 
acessando-se a parte onde haja maior probabilidade de 
encontrar o r eg i stro* dese j ado . 

Para que isso seja possível, o arquivo deve 
estar ordenado pelo campo onde é feita a procura. 

A grande vantagem da busca binária reside no 
fato de a quantidade de leituras necessárias ser bem 
pequena, pois enquanto que no acesso sequencial lê-se 
em média N/2 registros, na busca binária esse número 
cai para log2N, isto é, para um arquivo com 5.000 re- 
gistros, o acesso sequencial irá ler 2500 registros em 
média, enquanto que a busca binária irá ler no máximo 
17 registros. 


100 OPEN "CADASTRO. ARO" AS #1 LEN=67 
102 FIELD #1.20 AS GD$,15 AS C$.2 AS F$ 

104 MX1 = LOF( 1 ) / 67 
106 INPUT "Qual o nome ” ; A$ 

200 GOSUB 1200 

202 IF C1=0 THEN PRINT "*** NAO ENCONTREI ***" , 

GOTO 106 

204 PRINT ”*** ENCONTREI ***" 

206 PRINT CD$ 

208 PRINT E$ 

210 PRINT C$ 

212 PRINT F$ 

214 END 


MERGE "ROTPROC . FNT" 
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Tí 


1280 ' 

1201 ’ ROTPROG.FNT = Procura Material no Cadastro 

1202 ' 

1203 ’ Se encontrar, Cl sai com o n. do registro. 

1204 ’ Se nao encontrar. FIRST1 volta com o n. do 

1205 ' registro onde devera ser encaixado o novo 
120B ’ registro. 

1287 ' 

1210 FIRST1 = 1 
1212 LAST1 = MX1 

1220 Cl = INT((FIRSTl+LASTl)/2) 

1221 IF C1=0 THEN GOTO 1232 

1222 GET #NARQ, Cl 

1224 IF A$=CD$ THEN GOTO 1234 

1226 IF A$>CD$ THEN FIRST1=C1+1 

1228 IF A$<CD$ THEN LAST1=C1-1 

1238 IF FIRST$<=LAST1 THEN GOTO 1220 

1232 Cl = 0 
1234 RETURN 


SAVE "ROTPROC . FNT" , A 


Salvar esta rotina para ser utilizada no sis- 
tema apresentado no capítulo 9. 

Não custa lembrar que as rotinas de procura 
devem, na medida do possível, serem programadas fora 
do núcleo principal do programa. 


BUSCA INDEXADA EM ARQUIVO RANDôMICO 

Nesta técnica, trabalhamos com 2 arquivos 
distintos. 

0 primeiro deles, é o arquivo principal e 
contém todos os dados. 0 outro, é o arquivo de índices 
e contém somente o campo de procura e o número de re- 
gistro correspondente. 

Vejamos como isso funciona, com um exemplo: 

Vamos supor que o arquivo contenha o Cadastro 
de Funcionários de uma empresa. Ora, tal tipo de ar- 
quivo é um arquivo que consideramos "largo”, pois cada 
registro ocupa uma quantidade considerável de bytes, 
por causa do grande volume de dados. 
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CAMPOS 


QUANTIDADE 
DE BYTES 


- Nome do Pune i onár I o 

- Endereço 

- CEP 

- Ci dade 

- Estado 

- Data do Nascimento 

- Número do R.G. 

- Número do CPF 

- Número da CTPS 

- Número do PIS 

- Código do Banco para Pagamento 

- Código do Banco para FGTS 

- Quantidade de Dependentes 

- Data da Admi ssão 

- Número de Registro (Chapa) 

- Código da Seção 

- Cód i go do Cargo 

-Salário Inicial 

- Salário Atual 


30 

50 

5 

?0 

? 

R 

7 

11 

9 

11 

3 

3 
2 
B 
5 

4 
4 
4 
4 


TOTAL = 181 bytes 


Na emissão da Folha de Pagamento, por exem- 
plo, para cada funcionário, o programa deverá consul- 
tar o cadastro para saber o nome do funcionário, entre 
outras coisas, pois todas as digitações de dados e 
cálculos são realizados apenas pelo número de regis- 
tro. 

Ora, se a empresa tem 1.000 funcionários, is- 
so significa que o programa irá acessar 1.000 vezes 
esse cadastro. 

Se o programa utilizar a técnica de acesso 
sequencial, pelo fato de no acesso sequencial ser fei- 
ta N/2 = 500 leituras a cada acesso, o programa irá 
realizar um total de 1.000 X 500 = 500.000 leituras. 

Se o programa utilizar a técnica de busca bi- 
nária, pelo fato de na busca binária ser feita log2N=7 
leituras a cada acesso, o programa irá realizar um to- 
tal de 1 .000 X 7 = 7.000 leituras. 

Comparando-se os dois tipos de acesso acima, 
vé-se que a segunda técnica representa uma economia 
sensível. 

Mas podem ocorrer situações em que mesmo es- 
sas 7.000 leituras, devido a largura do registro (181 
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bytes) chegue a consumir um tempo relativamente longo, 
pois o tempo de leitura de um registro é proporcional 
à quantidade de bytes que serão t r ansf er i dos do disco 
para a memór i a. 

No caso em questão, .deverão ser transferidos 
7.000 X 1 81 = I . 267 . 000 bytes. 

Para se poder ' ut i I i zar a busca indexada, de- 
vemos criar um segundo arquivo contendo: 


campos QUANTIDADE DE BYTES 

- o número de Chapa 5 

- o número do registro no cadastro 4 


Este arquivo cujo registro ocupa somente 9 
bytes será conhecido como arquivo de índices. 

Para se localizar o nome do funcionário cujo 
numero de chapa seja, por exemplo, 437 , o programa de- 
vera: 

1 - Acessar os registros do arquivo de índices, 

aplicando a busca binária, até encontrar o 
funcionário de número 437. Nesse acesso serão 
transferidos em média 7 X 9 = 63 bytes. 

2 - Encontrado o funcionário procurado, pegar o 

número do registro do mesmo no Cadastro. 

3 - Acessar diretamento o registro no Cadastro. 

Nesse acesso serão transferidos os 181 bytes 
do funcionário. 


Como se vê, na busca indexada serão transfe- 
ridos, para cada funcionário, 63+181=244 bytes ou, se 
considerarmos a emissão total dos 1.000 funcionários, 
244.000 bytes, o que é bem inferior aos 1.267.000 by- 
tes da alternativa anterior. 

0 uso de 2 arquivos que embora distintos se 
referem ao mesmo conjunto de dados, requerem certos 
cu i dados .• 


1 Toda vez que houver uma inclusão ou exclusão 
de algum registro no Cadastro, o arquivo de 
índices deve ser alterado também. 
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2-0 arquivo de índices deve ser sempre ordenado. 

Mas, em compensação, apresenta algumas vanta- 
gens : 

1 - Os registros do arquivo principal podem estar 

ordenados de qualquer forma, pois quem garante 
o ordenamento é o arquivo de índices. Essa é a 
grande vantagem da busca indexada, pois, ha- 
vendo a necessidade de se incluir um novo fun- 
cionário no Cadastro o registro correspondente 
a esse novo funcionário poderá ser simplesmen- 
te adicionado no fim do arquivo principal. 

2 - Pode-se ter vários arquivos de índices, um or- 

denado pelo número de Chapa, outro pelo nome 
do funcionário, etc. Na situação de se desejar 
o salário, tendo-se o número de chapa, bastará 
acessar o arquivo de índices ordenado pelo nú- 
mero de chapa, enquanto que na situação de se 
desej r o salário tendo-se o nome do funcioná- 
rio, bastará acessar o outro arquivo, isto é, 
o arq I vo de índices ordenado pelo nome de 
funci nários. 

A seguir são representados os esquemas de 
acesso das várias técnicas de acesso apresentadas. 


ACESSO SEQUENCIAL 


Cadastro 


Procura 



registro 1 


registro 2 

— 

registro 3 

— 

. . . 

— 

. . . 


• ■ • 


• • • 


Registro Procurado 



ACESSO DIRETO 



BUSCA BINARIA 






BUSCA INDEXADA 


Procurado 


índice 

Cadastro 



registro 1 



registro 2 



registro 3 



• • • 




a a a 



a a a 



a a a 


Registro 

Procurado 


CUIDADOS ESPECIAIS 

Nas operações de ordenação de arquivos, esta- 
remos operando com vários arquivos em disco, e tais 
operações, dependendo do tamanho de cada registro e da 
quantidade total de registros no arquivo, poderão con- 
sumir um tempo re I at í vamente longo. 

Para que pequenos acidentes não provoquem a 
perda irremediável do arquivo, o programador experien- 
te deve tomar certas precauções. 

A seguir, relacionamos alguns conselhos: 

1 - A ordenação está demorando muito e não 
sabemos se a mesma está sendo executada 
corretamente ou se houve alguma pane no 
s i stema . 

Não custa nada ao programador incluir no pro- 
grama uma mensagem para ser apresentada a intervalos 
de tempo regulares, informando o estágio em que se en- 
contra a ordenação. 

Esse procedimento, além de tranquilizar o 
operador, dando-lhe a certeza de que tudo está corren- 
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do bem, permite uma avaliação do tempo que a ordenação 
ainda vai demorar. Por exemplo, podemos produzir uma 
tela como a mostrada a seguir. 


Já foram ordenados 10 registros. 
Já foram ordenados 29 registros. 
Já foram ordenados 39 registros. 
Já foram ordenados 49 registros. 
Já foram ordenados 59 registros. 
Já foram ordenados 69 registros. 
Já foram ordenados 79 registros. 
Já foram ordenados 89 registros. 

• 

* 


Caso, o programador deseje apresentar algo 
mais profissional como: 


ORDENAÇÃO: ««««< 

0* 50* 100* 


Poderá embutir no programa a seguite rotinas 


5350 ’ 
5352 ' 
5354 ' 
5356 ' 
5358 ' 
5360 ' 
5362 
5364 
5366 
5368 

5370 


MAPAACC.FNT a Mapa de Aconpanhanento 


Mostra nas linhas 17 e 18 una escala 
para ser apresentado o estagio de 
evolução de ciclos. 

LOCATE 5.17 

PR I NT "0%"SPACE${ 1 3 )"50V'SPACE${ 1 1 )”1 00V' 
LOCATE 5.18 

PRINT CHR${124); :FOR N=1 TO 6 sPRINT SPACE$(4) 
CHR$( 124) ; :NEXT N 
RETURN 


SAVE "MAPAACC.FNT”. A 

Salvar esta rotina para ser utilizada no sis- 
tema apresentado no capítulo 9. 
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Naturalmente, para que o mapa possa ser uti- 
lizado por d i versos trechos do programa, a parte que 
desenha o mapa inicial deve ser programada fora do nú- 
cleo principal do programa. 


c? - Durante a ordenação de um arquivo, poderá 
ocorrer alguma pane no sistema provocando 
a perda do arquivo. 

Para prevenir-se contra essas situações desa- 
gradáveis, criar um arquivo provisório, cópia do ar- 
quivo principal, e executar a ordenação em cima do ar- 
quivo provisório. 

Para automatizar esses procedimentos, incluir 
os comandos dentro du programa. 


500 ' 

502 'ORDENACAO 
504 

506 COPY "CADASTRO. ARO” TO "ARQUI VO.PRV" 
508 OPEN "ARQUI VO.PRV" AS #1 LEN=57 


Após a ordenação, caso não tenha ocorrido ne- 
nhum erro, eliminar o arquivo principal e trocar o no- 
me do arqu i vo pr ov i sór i o : 


614 Kl LL "CADASTRO. ARQ" 

616 NAME "ARQUI VO.PRV? AS "CADASTRO. ARQ" 

3-0 arquivo provisório deve ter um nome 
sugestivo, como: 

ARQUI VO.PRV 

pois se houver esquecimento em eliminá-lo 
do disco, e posteriormente o usuário es- 
tiver analizando o conteúdo com o comando 
FILES, saberá, imediatamente que se trata 
de um arquivo provisório e assim poderá 
eliminá-lo sem medo, com o comando Kl LL . 
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4 - Ao criar, dentro do programa, um novo ar- 
quivo, verifique se já não existe um 
outro arquivo com o mesmo nome. Lembre-se 
que em situações em que o sistema opera- 
cional encontra no disco um arquivo com o 
mesmo nome, os dados serio gravados por 
cima, perdendo-se aquilo que estava ante- 
riormente no arquivo. 

A função LOF permite saber a quantidade de 
bytes ocupados pelo arquivo. Um arquivo cujo compri- 
mento seja diferente de ZERO é um arquivo que já exis- 


314 PRINT ”Vou abrir um arquivo novo” 

315 OPEN "ARQUIVO. ARO" FOR APPEND AS #1 

31B IF LOF( 1 )>0 THEN PRINT "Ja existe um outro 
arquivo com o mesmo nome*' 


0 comando 0NERR0R=65 permite saber se o ar- 
quivo já existe: 


Eli ON ERROR GOTO 600 

212 OPEN "ARQUIVO. ARQ" FOR APPEND AS #1 


600 IF ERR=65 THEN PRINT "Ja existe um outro arquivo 

com o mesmo nome." 


O comando ONERROR = 53 permite saber se o ar- 
quivo não existe: 


211 ON ERROR GOTO 600 

212 OPEN "ARQUIVO. ARQ" FOR APPEND AS #1 


600 IF ERR=53 THEN RESUME 


5 - Verifique a quantidade de bytes disponí- 
veis no d i sco . 
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É bastante irritante, um programa de ordena- 
ção levar 2 horas para ordenar o arquivo e quando es- 
tiver quase no fim, esgotar a capacidade de armazena- 
mento do disco. 

Porisso, é bastante conveniente verificar, 
antes de mais nada, se há espaço suficiente para caber 
o novo arquivo. 

61 1 IF DSKF( 1 )*1024<REG*67 THEN PRINT "Nao ha espaço 

suficiente neste disco, coloque outro 
menos cheio.” 


6 - Não esqueça de fechar a porta do drive 
após i nser ir o disco. 

A atitude de fechar a porta do drive, geral- 
mente é automática e nem sempre pensamos nisso, exis- 
tindo o risco de nos esquecermos. 

Imagine que o programa gaste um tempo r e 1 ati- 
va m e n t e grande para ordenar os registros de um arquivo 
que esteja no drive A: e após esse tempo ele irá gra- 
var no drive B:, um novo arquivo, com os registros já 
ordenados, e, se nessa hora a porta do drive estiver 
aberta, o sistema operacional irá acusar tal esqueci- 
mentò com uma mensagem do tipo: 

Erro de Disco 

e todo o trabalho de ordenação estará perdido. 

Para evitar esse tipo de problema, faça com 
que o próprio programa verifique a existência ou não 
de um disco no drive B:, com algo do tipos 


211 ON ERROR GOTO 600 

212 OPEN -ARQUIVO. ARO” FOR OUTPUT AS #1 


600 IF ERR=68 THEN PRINT "Disco protegido." 

602 IF ERR=70 THEN PRINT "Falta disco no drive." 


Esses códigos de erro, e mais alguns relacio- 
nados em seu manual {*), são produzidos na execução do 
comando OPEN, quando o sistema operacional consulta o 
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diretório do disco. Ocorrendo uma condição anormal, o 
sistema operacional ativa a instrução ON ERROR e 
transfere o comando para a linha indicada no comando. 

O leitor poderá desenvolver uma "super-roti- 
na" que preve todas as situações que poderão ocorrer 
nos acessos ao disco para orientar o usuário de como 
proceder em cada uma delas. 

7 - Nas situações em que o programa solicita 
ao usuário um nome para o arquivo que se- 
rá criado, facilite o trabalho do usuário 
mostrando os arquivos já existentes no 
disco, com o auxílio do cornado FILES: . 


600 CLS 

602 FILES "*.ARQ" 

604 PRINT "Fornecer um nome para o arquivo, diferente 
dos acima (máximo 8 caracteres)." 

606 INPUT N$ 

608 IF LEN( N$ )>8 THEN GOTO 604 
610 ARQ$ = N$ + ".ARQ" 

612 OPEN ARQ$ AS #1 LEN=68 


(*) Para uma relação completa dos códigos de erro con- 
sulte o manual de sua interface. No caso das iter- 
faces para MSX, existem 3 tipos: 

MICROSOL {e seus clones tipo DDX, TROPIC, LASER..) 
Manual: SISTEMA DE DISCO PARA MSX ( ALEPH ) - Renato 
da Silva Oliveira- Rubens Pereira Silva Jr 


SHARP 

Manual: USANDO O DISK DRIVE NO MSX (ALEPH)- Rubens 
Pereira Silva Jr 

TECHNOAHEAD E NOR (padrão MSX internacional) 
Manual: DRIVES LEOPARD DE 3 1/2" (ALEPH)- Carvalho 
Jr- Oliveira- P i azz i 

ObS: Esta interface serve também para drives de 

5 1/4" 
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técnicas 
de saída 


Entende-se como "saída” toda e qualquer mani- 
festação do programa, quando determinadas informações 
são encaminhadas a um periférico conectado ao computa- 
dor . 

Vejamos algumas sugestões para melhorar a 
perfomance dos programas. 


LIMPEZA DE TELA 

0 comando CLS (no MSX e PC) ou o HOME (no 
MBASIC) apaga instantaneamente toda a tela do vídeo. 

Existem situações em que desejamos apagar so- 
mente parte da tela. Para essas situações o programa- 
dor poderá desenvolver uma série de rotinas, cada uma 
delas adequada a determinadas situações! 


100 CLS 

101 FOR N=23 TO 1 STEP -1 

102 LOCATE ,N = PR INI STR I NG${ 39,"#" ) ; 

103 NEXT N 

104 C = 20 

105 L = 11 

106 P = 0 

107 FOR I b C-P TO C+P 

100 LOCATE C-P, 1-9 = PRINT SPC(I) 
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109 LOCATE C+P,l-9 : PRINT SPC(1) 

110 NEXT I 

111 LOCATE C-P,L-P = PRINT SPC(2*P) 

112 LOCATE C-P.L+P r PRINT SPC(2*P) 

113 P « P ♦ 1 

114 IF P<! 0 THEN GOTO 107 


ESP AÇOS EM BRANCO E PROCESSAMENTO 

Em todas as saídas formatadas, os espaços em 
branco entre as informações consomem tempo para serem 
impressas, tanto no vídeo como na impressora. 

Se o programador comparar o tempo gasto para 
a impressão das 2 telas seguintes: 


^ I Antonio de Souza 345,00 

| Carlos Hendes i. 246, 00 

® | Enio Freitas 47,30 

Jose Carlos de Oliveira 412,40 

® j Ivan i Ido Go*es de Carvalho 18,00 


e: 


T 


& 


345,00 Antonio de Souza 

1,246,00 Carlos Mendes 
47,30 Enio Freitas 
412,40 Jose Carlos de Oliveira 

18,00 Ivan i Ido Goies de Carvalho 


verificará que uma tabela do segundo tipo será impres- 
sa num tempo sensivelmente menor. 


CARACTERES ESPECIAIS 

Os caracteres especiais reduzem a velocidade 
de impressão. 

As impressoras matriciais apresentam a carac- 
terística de poderem imprimir com maiores densidades 
que o padrão de 10 caracteres por polegada. 

Cuidado ao utilizar esse recurso, pensando em 
aumentar a quantidade de caracteres por linha, pois, 
geralmente, os caracteres do tipo comprimido reduzem 
em muito a velocidade de impressão. 
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0 melhor mesmo é analisar a real necessidade 
das informações no relatório e imprimir somente o ne- 
cessár i o. 


TIPOS DE ESPAÇOS EM BRANCO 

Existem diversas alternativas para se obter 
espaços em branco e, aparentemente, qualquer uma das 
funções abaixo pode ocasionar o mesmo efeito: 

PRINT " 

PRINT SPACEK6) 

PRINT SPC(B) 

PRINT STR ING$( 6,32) 

PRINT TAB( 6) 


Em relatórios extensos, pequenas diferenças 
de tempo ocasionadas pela escolha inadequada da fun- 
ção, poderão provocar um acréscimo de tempo considerá- 
vel para imprimir o relatório todo. 

Recomenda-se efetuar diversos testes para se 
conhecer os tempos. Nos testes que realizei, encontrei 
os tempos relativos seguintes: 


FUNÇÃO 

TEMPO 

r» »» 

277 

SPACE$( 1 0 ) 

280 

SPCÍ10) 

102 

STR 1 NG${ 32, 1 0 ) 

285 

TAB( 1 0 ) 

19 


O COMANDO PRINT # 

Os comandos PRINT e LPRINT são usados para a 
impressão no vídeo e na impressora respectivamente. 

Existem situações em que gostaríamos de esco- 
lher o local da impressão, sem alterar o programa. 

Existem também situações em que queremos en- 
viar um relatório para a impressora mas ela está que- 
brada ou inoperante por algum outro motivo. A solução 
é "imprimí-lo” no disco. 

I sso é poss i ve I ? 


120 



SIM, isso é possível, com o uso do comando: 

PRINT # 


100 

101 

102 

103 

104 

105 

106 

107 

108 

110 

112 

114 


PRINT "Escolha o local da impressão:" 

PRINT "1 - No Video" 

PRINT ”2 - Na impressora" 

K$ * INKEYI , IF K$="” THEN GOTO 104 

IF K|<”1" OR K|>”2" THEN GOTO 100 

IF K|»"1" THEN SAIDAI = "CRT=" s 
ELSE SA I DA$ a "LPT," 

OPEN SA I DA$ FOR OUTPUT AS »1 
PRINT #1. "Belo Resultado" 

ENO 


Além dessa vantagem, existem situações em que 
o relatório deve, obrigatoriamente, ser emitido para 
que outros programas possam ser executados, mas, por 
uma incrível coincidência ou infelicidade, a impresso- 
ra está quebrada. 

Se o programa realiza a impressão na impres- 
sora com comandos LPRINT, o programador estará em uma 
bela enrascada. 

Veja como conseguir uma flexibilidade ainda 
maior, analisando a sugestão a seguir: 


100 PRINT "Escolha o local da Impressão: 

101 PRINT ”1 - No Video" 

102 PRINT "2 - Na Impressora” 

103 PRINT ”3 - No Disco" 

104 K$ B INKEY$ 5 IF K|="" THEN GOTO 104 

105 IF K$<"1" OR K|>"3" THEN GOTO 100 

106 IF K$ = ”1" THEN SAIDAI = "CRT:” 

107 IF K| = "2" THEN SAIDAI = ”LPT S " 

108 IF K| = "3” THEN SAIDAI * "ARQUIVO" 

1 09 * 

110 OPEN SAIDAI FOR OUTPUT AS «1 

111 PRINT #1 ."Belo Resultado" 
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MENSAGENS DE ERRO EM PROGRAMAS 

Em um programa que apresenta diversas mensa- 
gens de erro. é conveniente programar a apresentação 
da mensagem fora do núcleo principal do programa: 

5308 ' 

5302 ' ERRO.FNT = Mensagem de Erro 

5384 p 

5306 LOCATE 0,19 

5308 IF LEN{ ER$)<>0 THEN PRINT ER$s 

ELSE PRINT "*** DADO INVALIDO ***" 

531 0 GOSUB 501 8 

5312 GOSUB 5200 

5314 LOCATE 0,19=PRINT SPC(30) 

5316 RETURN 

SAVE "ERRO.FNT", A 

Salvar esta rotina para ser utilizada no sis- 
tema apresentado no capítulo 9. 


A FUNCSO USING 

A função USING. utilizada nos comandos PRINT, 
PRINT# e LPRINT permite que os dados que serão apre- 
sentados sejam formatados conforme determinados pa- 
drões, melhorando a estética daquilo que é apresentado 
na tela ou na impressora. 

Para que isso ocorra, basta que coloquemos 
entre o comando PRINT e o dado a ser impresso, a pala- 
vra USING seguida de uma string de caracteres especi- 
ais, conhecidas como máscara de edição. 

Tais caracteres são os seguintes: 

! Apresenta apenas o primeiro caractere da 

str i ng. 

\\ Apresenta tantos caracteres da string 

quanto os espaços em branco entre as â. 

& Apresenta a string completa. 

♦ Indica as posições em que os algarismos 

deverão ser apresentados. Pode ser inse- 
rido 1 ponto no meio da sequência de #s, 
para indicar a posição do ponto decimal. 
Pode ser colocado um sinal + ou - no 
início da sequência para indicar se de- 
sejamos que o símbolo + ou seja im- 
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Imprimindo 
o número: 


+ 123. 4 
- 123.4 
+ 123.4 
- 123.4 
+ 123.4 
- 123.4 
+ 123.4 
- 123.4 
+ 123.4 
- 123.4 


presso na frente do número nos casos em 
que ele for positivo ou negativo, e o 
símbolo * para que os espaços na frente 
do número sejam preenchidos. 

Exemp I os : 


com a máscara: obtem-se: 


#♦##.## 

####.#* 

+***#.#♦ 

+♦*##.*# 

-####.*# 

-###*.## 

****#♦.** 

**#***.## 

+**#*##.#♦ 

+**#*##.*# 


123.40 
- 123.40 
+ 123.40 
- 123.40 
- 123.40 
— 123.40 
*** 1 23.40 
**- 123.40 
***+ 1 23.40 
***- 123.40 


Existem outros símbolos que provocam formata- 
ções diferentes, como já deve ser de conhecimento do 
programador . 

Analisando as diversas máscaras utilizadas em 
um programa, iremos verificar que não existe uma gama 
muito grande de máscaras diferentes, no mesmo progra- 
ma, pois muitas delas são repetidas. 

Desse modo, em vez de se usar: 


S 00 PRINT "Capital de , 

PRINT USING ”######. ##";CAP 

B 01 PRINT "na taxa de " ; - 

PRINT USING "####§#. ##" ; TAX 

602 PRINT "amortizado em s 

PRINT USING "#«#######"; PER 

603 PRINT "resultara nas seguintes prestações:" 
684 FOR N =1 TO PER 

605 PRINT "prestacao”;N;".”; = 

PRINT USING "##*###. ##";PRE(N) 

606 NEXT N 


A Pode ser usado uma forma mais elegante e eco- 

nómica, do tipo: 

600 F 1 $ = ”######.##” 

601 F 2 $ = ”#########” 

602 PRINT "Capital de " ; , PRINT USING F 1 $ ; CAP 
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663 PRINT "na taxa de » PRINT USING F1$;TAX 

604 PRINT "amortizado em : PRINT USING F2$;PER 

605 PRINT "resultara nas seguintes prestações:" 

606 FOR N=1 TO PER 

607 PRINT ”prestacao";N;".";:PRINT USING F1$ ; PRE(N) 

608 NEXT N 


IMPRESSÃO OTIMIZADA NA TELA 

Quando estamos trabalhando com uma tela de 
digitação de dados, onde existem dados fixos e dados 
variáveis, a impressão de todos os dados na tela pode 
consumir alguns significativos segundos. Um digitador 
profissional poderá sentir essa pequena diferença e 
isso será o suficiente para que o programa seja clas- 
sificado de "lento". 

Um boa técnica seria separar ajmpressão dos 
dados fixos, da impressão dos dados variáveis. 

Observe a seguinte tela de digitação: 


tela: 01 


NF$ 

EF$ 


EC$ , EM$ 
EE$, NT$ 
GF$ , FF$ 
CT$, ST$, DT$ 

NR$, DR$ 
CF$ 

SF$ 

SL$ 

NP$ 

BP$ , AP$ , DP$ 
N0$ 

FG$ 

BG$, AG$, DG$ 


01 2345678901 2345R78901 2345678901 2345678 


1 

Cadastr amento de Funcionários 

2 


3 


4 

Nome : 

5 

Ender eco : 

6 


7 

CEP : Ci dade : 

8 

Estado :. . Nascimento:../../.. 

9 

RG: CIC: . 

10 

CTPS: serie:., emi ssao :../../. . 

11 


1? 

Registro: em ; ../../. . 

13 

cargo : 

14 

secao .- 

15 

sa 1 ar i o : 

16 


17 

PIS: 

18 

banco:... agencia:.... data:../../.. 

19 

dependendentes : . . 

20 


21 

FGTS: . . 

22 

banco:... agencia:.... data:../../.. 

23 


24 
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Observe a listagem a seguir onde os dados va- 
riáveis sao impressos em uma parte distinta da impres- 
são dos dados fixos.- 


200 ’ 

202 ' Inicial ízacao de Variavels 

222 CLEAR 1000 

230 NF$ = STRINGK30.”.”) 

240 EF$ * STRING$(20.".”) 

250 EC$ = STRING${05.”.”) 

251 EH0 = STRINGK20.”.”) 

252 EE$ c STRING$(02,".") 

253 NT$ = 

254 GF$ » STRING$(09,”.”) 

255 FF0 » " - - 

256 CT$ = STR ING$( 06.".”) 

257 ST| = STRING$( 02.”.”) 

258 DT$ = 

268 NR$ * STRINGK 05.’’.”) 

278 DR$ = 


280 CF$ = STRING$(20.".”) 

282 SF$ = STRINGK 20.”.") 

284 SL$ = ” - 

286 NP$ s STRING${28.”.”) 

288 BP$ = STRING$(03.".”) 

280 AP$ = STRING$(04.".”) 

282 DP0 = 

284 ND$ = STR I NG$ ( 02 . " . " ) 

296 FG0 = STRING$(02,”.”) 

298 BG$ = STRING${03.".") 

300 AG$ a STRINGK 04.".”) 

302 DG$ a 

400 ' 

402 ’ Dados Fixos 
404 ■ 

410 CLS 

411 PRINT 

E R,NT SPC(4) "Cadastramento de Funcionários” 

414 PRINT STRING${38.”=”) 

415 PRINT 

416 PRINT "None = " 

417 PRINT "Endereço*" 

420 PRINT 

422 PRINT "CEP .-”SPC{ 6 )"C i dade 

424 PRINT "EstadO:"SPG(3)”Nasci mento-" 

426 PRINT ”RG:”SPC(10)”GICs” 

428 PRINT •’CTPS.-”SPC(7)"serie:"SPC{3)”eniissao=” 
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430 PRINT 

438 PRINT ”Registro:"SPG(6)”Eais" 

434 PRINT "cargos:’' 

436 PRINT "secao:” 

43B PRINT "sal ar io:" 

440 PRINT 

448 PRINT "PIS:” 

444 PRINT "banco:”SPG{4)"agencia:"SPC(5)"data.:" 
446 PRINT "dependentes:" 

448 PRINT 

450 PRINT "FGTS:" 

458 PRINT "BANC0«"SPC(4)"agencia."SPC(5)"data:”; 

500 • 

508 * Dados Variaveis 
* 

506 LOCATE 5, 4:PRINT NF$ 

508 LOCATE 9. 5: PRINT EF$ 

510 LOCATE 4. 7:PRINT EC# 

518 LOCATE 17. 7:PRINT EM$ 

514 LOCATE 7. 8:PRINT EE$ 

516 LOCATE 81. 8: PRINT NT| 

518 LOCATE 3. 9:PRINT GF$ 

580 LOCATE 17. 9 sPRINT FF$ 

588 LOCATE 5.10:PRINT CT$ 

584 LOCATE 18.10:PRINT ST$ 

586 LOCATE 89.10=PRINT DT$ 

588 LOCATE 9.18:PRINT NR$ 

530 LOCATE 18. 18 sPRINT OR$ 

538 LOCATE 6. 13: PRINT CF$ 

534 LOCATE 6. 14: PRINT SF$ 

536 LOCATE 8, 15: PRINT SL$ 

538 LOCATE 4.17:PRINT NP$ 

540 LOCATE 6.18:PRINT BP$ 

548 LOCATE 18.18:PR!NT AP$ 

544 LOCATE 88.18:PRINT DP$ 

546 LOCATE 18. 19= PRINT ND$ 

548 LOCATE 5.81 sPRINT FG$ 

550 LOCATE 6. 88 sPRINT BG$ 

558 LOCATE 18. 88 sPRINT AG$ 

554 LOCATE 88, 88 sPRINT OG$ 

600 LOCATE 0.0 


A separação da impressão dos dados fixos dos 
dados variáveis irá agilizar a digitação de dados, 
pois o programa retornará, normalmente, a linha 580 e 
não perderá tempo imprimindo novamente os dados fixos 
que já estão impressos na tela. 
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VÍRGULA 


NUMEROS DECIMAIS COM 


sao 
decima 


apresentados na 
que pode- 


o 


nntar - . 0 * H^eros fracionários 
nntdçao internacional com o ponto 
ra ocasionar certa confusão. 

vírgula decimaremos casos^p 1 "' ° P ° nt ° d8címal Pe I a 

nr . p „„, 0 aí ',:,!;;,?:”?,!;,;.":"" 8 sranaes - i,s '- 

ss “ p ° l1 ' ser «Ktido por uma rotioa do tlpí, 

100 INPUT "Numero = "N 
102 GOSUB 2400 
104 PRINT A$ 

106 END 

2^00 • 

M04 '--I^^_!_^“ nverte Ponto em Virgülã 

2410 A$ = STR$(N) 

2412 K * INSTRUI.".”) 

l F K = 0 THEN A|=A|+~ . 00" 

G K = INSTR{ A|,". ) * 

IS 5Vi!íIí;?í! , - k ; , ) i ♦ * hid*< »*. K+i i 

2422 IF i E N(LEFT|(AÍ.K-1„M THEN 

2426 IF K>0 THEN IF LEN(LEFT|(A| K-D) THFN 
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manipulação 
de Variáveis 


Em um programa BASIC, as informações elevem 
ser armazenadas em variáveis. 

Para que o programador, na análise do progra- 
marão seja levado a cometer erros grosseiros, confun- 
dindo o conteúdo das variáveis, por causa de uma in- 
terpretação errônea de seus nomes, sugere-se adotar 
alguns padrões. 

A linguagem BASIC, por si sô, apresenta algu- 
mas restrições, amplamente comentadas no livro Apro- 
fundando-se no MSX . De forma resumida essas restrições 
são as segu i ntes : 


- 0 nome da variável pode ser formado por até 
252 caracteres, porém, somente os 2 primei- 
ros são considerados no nome da variável. 

- Variáveis que contenham números inteiros 
devem ser finalizadas com o símbolo % . 

- Variáveis que contenham números reais de 
precisão simples devem ser finalizadas com 
o símbolo ! . 

- Variáveis que contenham números reais de 
dupla precisão devem ser finalizadas com o 
s ímbo I o t . 


V 


■ Variáveis 
numér i cas 
bo I o $ . 


que contenham informações alfa- 
devem ser finalizadas com o sím- 


Variáveis que contenham qualquer tino dp 

r iías ma anp'c qUer numéricas quer alfa-numé- 
Im ?enistrn í Vam para d8finir 05 de 

::?. f -s: ':í?ír.f ít, :.5ír 


números inteiros 

números reais em precisão simples 
numeros reais em dupla precisão 
informações a I f a-numér i cas 


= 2 bytes 
= 4 bytes 
= 8 bytes 
- 1 byte 
por 

caractere 


:»• -•?' .Síí*5i!,í ,n :;; ™ " d ;*? ( ç" a d » 


1 

2 


Reservar as iniciais de 
r i áve i s de contro I e . 


a M para as va- 


Quando houver várias variáveis semelhan- 
8 imp i í 3b ! t í ar Ü fazer a diferenciação na 

de Slsí uL e ;7 H ?S. ,arlá,el - iSS,m - “ 


3 


No desenvolvimento de um grande sistema 

ororur ap 31 "! I c Í pam vários programadores.' 
clr ? aborar uma tabela onde pode- 

pln m re a C 1 onadas as variáveis que se- 
ao utilizadas nos diversos programas. 


CONVERSÕES DE TIPOS 

1 - número para string. 


s W S'i«v ««asas: 
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A) = STR$( II) 
A$ = STR$(J!) 
A$ = STR$(K) 
A$ » STR$( LI) 


S - número para string de definição de campo. 

A conversão de número em string de definição 
de campo de um registro de arquivo randômico, deve ser 
realizada por funções, de acordo com o tipo de variá- 
vel numérica. 


N$ = MKI $( II) 
N$ = NKS${ J I ) 
N$ = HKS$( K) 
N$ = HKD$( L« ) 


3 - string para número . 

A conversão de strings em números pode ser 
realizadas por meio da função VAL: 


II = VAL(AS) 
J! = VAL ( A$) 
K = V AL(A$) 
LM = VAL(A$) 


4 - string de definição de campo para número. 

A conversão de strings de definição de campos 
de um registro de um arquivo randômico para números 
deve ser realizada por funções, de acordo com o tipo 
de variável numérica. 


1% = CVI(NS) 
J! = CVS(N$) 
K = CVS( N$ ) 
L* * GVS(N$) 


5 - string com algarismos hexadecimais para número. 

N - VAL(~AH"+A$) 
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MANIPULAÇSO DE STRINGS 

1 - TRANSFERÊNCIAS 

As transferências de informações alfa-numéri- 
cas de uma variável para outra pode ser feita direta- 
mente: 


A$ = B$ 


2 - JUNÇÃO 

A junção ou concatenação de strings pode ser 
feita por intermédio do símbolo + . 

Exemp I o : 


100 a$ = "boa" 

182 B$ = "TARDE” 

1M C$ = A$ + B$ 

106 PRINT C$ 

108 D$ = A$ + "NOITE” 
118 PRINT D$ 


3 - PARTES DE STRINGS 

Na situação em que se deseja somente uma par- 
te da informação alfa-numérica, podemos utilizar uma 
das funções: 

- LEFT$ 

- R I GHT$ 

- Ml D$ 

0 emprego dessas funções é amplamente discu- 
tido no livro Linguagem Basic MSX. 

Essas funções podem ser utilizadas em combi- 
nação com outras funções. Vejamos alguns exemplos: 

Deseja-se imprimir somente o nome do logra- 
douro, lendo esses nomes em um arquivo onde o nome do 
logradouro está embutido no endereço. 


100 OPEN "CADASTRO. ARQ" AS 01 LENb87 

102 FIELD «1.38 AS N0.50 AS E$. 5 AS CEf.2 AS L$ 

104 MAX = L0F<1)/87 
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110 FOR REG = 1 TO MAX 
112 LPRINT E$ 

114 NEXT REG 
1 1 B END 


Este programa irá produzir uma listagem do 

t i po : 


rua Joaquim Antunes, 450 

av. Hiruna, 34 

rua General Osorio, 700 

praca Gomes Carneiro. 1.234 - apto 12 


Mas, desejamos uma listagem somente com o no- 
me do logradouro, sem as palavras "rua", "av.” etc. 


Joaquim Antunes 
Hi runa 

General Osorio 
Gomes Carneiro 


Isso pode ser obtido com um programa do tipo: 


100 OPEN "CADASTRO. ARQ" AS #1 LEN=87 

102 FIELD #1.30 AS N$,50 AS E$.5 AS CEI.2 AS F$ 

104 MAX = LOF(1 )/87 

1 06 FOR REG=1 TO MAX 

108 I = INSTR(E$." ”) 

110 F = INSTRt E$," ”) - I 
112 LPRINT MIO$(E$, I.F) 

114 NEXT REG 
116 END 


VÍRGULA E PONTO DECIMAL 

A notação empregada no Brasil para números 
fracionários é com vírgula decimal. 

Ocorre que os computadores, por seguir uma 
padronização universal, utiliza o ponto decimal na no- 
tação de números. 
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A substituição da vírgula por ponto e vice- 
versa pode ser efetuada de forma mais ou menos simples 
convertendo-se o número em string e aplicando-se a 
função INSTR. 

Para converter ponto para vírgula decimal: 


308 A$ = STR$(X) 

302 P = INSTR{A$/\") - 1 

304 IF P >= 8 THEN A| = LEFT|U|. P )+"."+ 

RIGHTK A|.LEN( A|)-P-1 ) 


Para converter vírgula para ponto decimal: 


300 P = INSTRUI.",") - 1 

302 IF IF P >= O THEN A| * LEFT|U|.P )♦"."♦ 

RIGHTK A|, LEN( A|)-P-1 ) 

304 X = VAL(AI) 
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desenvolvimento 

de um sistema 


Para desenvolver um programa ou um conjunto 
de programas , devemos proceder a Análise do Sistema. 

Em que consiste essa análise ? 

Analisar um sistema significa analisar os da- 
dos que serão manipulados pelos programas definindo-se 
os arquivos do sistema e, em seguida, analisar os ar 
quivos definindo-se os programas do sistema. 

Da análise do sistema, resultam, portanto, 
um conjunto de arquivos e de programas que constituem 
o Sistema. Em outras palavras, damos o nome de Sistema 
a um co j unto de arquivos e programas estruturados para 

resolver um determinado problema. 

Por que um conjunto e não um único programa? 

Várias razões nos levam a dividir um grande 
programa em vários outros menores. Algumas dessas ra- 
zões podem ser as seguintes: 

1 - 0 computador não dispõe de memória sufi- 
ciente para conter um único programa. 


? - Durante o processamento de certas fases 
do problema será feita, por exemplo, uma 
ordenação dos dados para colocar os dados 
em certa ordem e para isso será empregada 
uma técnica de classificação cuja veloci- 
dade dependerá da quantidade de memória 
livre d i sponí ve I . 


3-0 sistema caracteriza-se por intenso 
acesso a arquivos em disco sendo acessado 
vários arquivos ao mesmo tempo e para 
permitir uma grande flexibilidade ao usu- 
ário, vários parâmetros dos arquivos po- 
derão ser definidos na memória, e a efi- 
ciência das técnicas de acesso estará di- 
retamente associada a quantidade de memó- 
ria livre. 


Um programador experimentado apresentará de- 
zenas de outras razões segundo as quais um sistema de- 
ve, sempre que possível, ser dividido em programas pe- 
quenos. 

Para definir os arquivos do sistema, o pro- 
gramador deve: 


t - Preparar^ uma relação contendo todas as 
informações que deverão ser fornecidas 
pelo sistema. Para ser prático, desenhar 
em um papel quadriculado, todos os rela- 
tórios que se deseja do sistema. 


2 - Partindo do pressuposto que o computador 
não cria informações, analisar as infor- 
mações acima e preparar uma relação de 
todas as informações que deverão ser for- 
nec[das ao sistema. Agripar essas infor- 
mações em função da época em que elas são 
produzidas. Para ser prático, desenhar, 
em um papel quadriculado, a forma em que 
os dados serão digitados. 


3 - Tomando como base o esquema seguinte.- 



Analise o fluxo dos dados desde a Entrada até 
a Saída e procure uma estrutura de arquivos onde os 
dados sejam manipulados o menos possível, lembrando 
que as leituras e gravações em disco consomem tempo. 


135 






Nessas análises, faça várias hipóteses, desde a con- 
figuração em que todas as informações ficam armazena- 
das em um único arquivo, até a configuração em que os 
dados ficam distribuídos em vários arquivos. 

Após essas análises resultará a configuração 
final dos arquivos, tendo-se a^definição de quais são 
os arquivos e quais as informações que serão armazena- 
das em cada um desses arquivos. 

Para se definir os programas do sistema, o 
programador deve: 


1 - Desenhar os arquivos em uma folha grande. 


2 - Adicionar no desenho, os programas de 
emissão dos relatórios, ligando-os aos 
arqu i vos . 


3 - Adicionar no desenho, os programas de di- 
gitação de dados. 


4 - Prever as situações em que haverá a ne- 
cessidade de corrigir os dados já arqui- 
vados e adicionar os programas que farão 
tais correções. 


5 - Prever as situações em que haverá a ne- 
cessidade de se eliminar algum registro 
do arquivo e adicionar os programas que 
farão tais e I imi nações . 


Após isso, estará definido o sistema de ar- 
quivos e programas. Fazer a Especificação do Sistema. 
Para isso, o programador deve: 

1 - Especificação dos Arquivos: 

Para cada arquivo do sistema: 

A - Definir o nome do arquivo; 

B - Definir o tipo de acesso, se sequencial 
ou randomico; 
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C - Para cada campo do arquivo: 


1 - Descrever o conteúdo; 

2 - Definir o nome da variável de acesso; 

3 - Limitar o tamanho da informação; 


3 - Especificação dos Programas: 

Para cada programa do sistema: 

1 - Definir o nome do programa; 

2 - Descrever o que ele faz ; 

3 - Desenhar telas de controle do programa; 

4 - Desenhar as telas de digitação de dados; 

5 - Desenhar a estrutura lógica dos programas 

em fluxogramas. 


Aproveite a, oportunidade para preparar uma 
justificativa, isto é, relacionar os motivos que con- 
duziram os trabalhos de análise. 

Como resultado da Análise do Sistema, teremos 
o segui nte mater i a I : 

1 - Especificação dos programas. 

2 - Especificação dos arquivos. 

3 - Desenho dos r e I ator i os impressos. 

4 - Desenho das'telas de digitação de dados. 

5 - Desenho das telas de controle. 

B - Fluxograma dos programas. 

7 - Fluxograma do sistema. 

8 - Just i f i cat i vas . 

Guarde esse material para compor o Manual do 

Sistema . 

EXEMPLO DE UMA ANALISE DE SISTEMA 

Vamos efetuar a análise de sistema para a 
elaboração de um Sistema de Controle de Materiais do 
almoxarifado de uma empresa. 

ANALISE DO SISTEMA DE ARQUIVOS 

Vamos seguir, passo a passo, o roteiro acima 
apresentado, efetuando a análise do exemplo apresenta- 
do no capítulo 9. 



1 - Informações que se espera do sistema: 

Desenhar, em papel quadriculado, todos os re- 
latórios que se deseja obter do sistema. En- 
tende-se como relatório toda e qualquer in- 
formação que seja apresentada pelo computador 
em resposta a uma solicitação feita pelo usu- 
ário. 


Esses desenhos estão apresentados no capítulo 
9. Com base neles, podemos apresentar o seguinte: 


INFORMAÇÃO 

- Nome da F i rma 

- Título do Relatório 

- Numeração das Folhas 

- Data da Emissão 

- Cód i go do Material 

- Descr i ção do Material 

- Saldo Atua! em Estoque 

- Data da ú I t ima Entrada 

- Quantidade de Itens no Cadastro 

- Data da Entrada 

- Data da Saída 

- Número do Documento (Histórico) 

- Quantidade de Entrada 

- Quantidade de Saída 

- Quant i dade Anter i or 


RELATÓRIO 
12 3 4 

X X X X 
X X X X 
X X X X 
X X X X 
X X 

X X X X 
X X 

X 
X 

X 

X X 

X 

X X 

XXX 

X 


Essas são todas as informações que se deseja 
obter do sistema. 

O analista do sistema deve tomar extremo cui- 
dado na definição dos relatórios, pois, como veremos a 
seguir, é a variedade de informações que define a com- 
plexidade do sistema. Porisso, o analista experiente 
deve até antever algum relatório que no futuro venha a 
ser necessário. 


2 - Classificação das Informações. 

Montada a relação, analisar bem o tipo das 
informações. Observar que existem informações fixas, 
que nunca variam, e outras que variam com uma certa 
f requênc i a . 
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Separando umas das outras teremos: 

- Informações Fixas: 

- Nome da Fi rma 

- Título do Relatório 

- Informações que variam em função do relató- 
rio: 

- Numeração das Folhas 

- Data da Emissão 

- Informações que variam de acordo com o es- 
toque: 

- Código do Material 

- Descr i ção do Material 

- Saldo Atual em Estoque 

- Data da última Entrada 

- Quantidade de Itens no Cadastro 

- Data da Entrada 

- Data da Saída 

- Número do Documento (Histórico) 

- Quantidade de Entrada 

- Quant i dade de Sa í da 

- Quant idade Anter i or 


Analisar as informações variáveis e imaginar 
as situações em que elas serão produzidas. 

No caso em questão, tais situações são as se- 
gui ntes : 

- Época de Cadast ramento, quando a empresa 
passou a adquirir um novo material. 

Para um certo material, essa época existe uma 
única vez . 

- Época de aquisição, quando é realizada a 
entrada no a Imoxar i f ado . 

Para um certo material essa época pode ocor- 
rer com uma grande frequência. 

- Época de consumo, quando é realizada a saí- 
da do a Imoxar i fado . 

Para um certo material essa época pode ocor- 
rer com uma grande frequência. 
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Classificando as informações variáveis de 
acordo com as épocas, teremos o seguinte: 

- Época de Cadast ramento : 

- Cód i go do Material 

- Descr i ção do Material 

- Época de Aquisição: 

- Data da Entrada 

- Número do Documento (Histórico) 

- Quantidade de Entrada 

- Época de Consumo: 

- Data da Saída 

- Número do Documento (Histórico) 

- Quant idade de Saí da 


Da relação anterior ficam sobrando algumas 
informações que não estão relacionadas diretamente as 
épocas acima: 

- Saldo Atual em Estoque 

- Quantidade de Itens no Cadastro 

- Quant i dade Anter i or 


Vejamos como será feita a digitação das in- 
formações. Para a digitação dos dados é necessário de- 
senhar uma tela de digitação onde as informações sejam 
distribuídas no espaço de 24 x 40 (ou 80 se o vídeo 
tiver 80 colunas) com uma estética que facilite a ve- 
rificação visual daquilo que se digita. 

Imaginando que futuramente serão necessários 
relatórios com os materiais agrupados por tipos como 
"material de escritório", "de limpeza", "do refeitó- 
rio", etc, vamos incluir a informação TIPO. 

Imaginando, também, que no futuro seja neces- 
sário um controle do estoque baseado em uma quantidade 
mínima, vamos incluir a informação Quantidade Mínima. 

O desenho da tela de Cadastr amen to de Materi- 
al é apresentado no capítulo 9. 

Para a época de aquisição de materiais será 
necessária uma tela de digitação quando serão digita- 
das : 
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- Data da Entrada 

- Número do Documento 

- Quantidade da Entrada 


Imaginando a situação em que o usuário irá 
digitar essas informações, a tela deverá apresentar 
algumas informações para orientá-lo. 

Por exemplo, após a digitação do código do 
material, ser i a i nteressante que o sistema respondesse 
com a descrição correspondente para que o digitador 
possa ter a certeza de que os dados que serão digita- 
dos referem-se ao meterial desejado. 

0 desenho da tela de Registro de Entrada é 
apresehtado no capítulo 9. 

Efetuando uma análise similar, podemos dese- 
nhar a tela de Registro de Saída apresentada no capí- 
tulos. 


3 - ANÁLISE DO ARQUIVO 

As informações digitadas, independentemente 
das épocas em que são produzidas, devem ser gravadas 
em um arquivo, para ali permanecerem até o dia em que 
serão consultadas para a emissão dos relatórios. 

A jdéia mais imediata seria armazenar todas 
as informações em um único arquivo. 

Um registro desse arquivo teria o seguinte 

tamanho : 


- Cód i go do Mater i a I 4 

- Descrição v 25 

- Data da Entrada 6 

- Número do Documento de Entrada 10 

- Quantidade de Entrada 5 

- Data da Saída 6 

- Número do Documento de Saída 10 

- Quantidade de Saída 5 


TOTAL = 71 bytes 


Observe que foram definidas apenas uma Entra- 
da e uma Saída. Ocorre que existem materiais que são 
consumidos a todo instante, gerando inúmeras Saídas ao 
longo do mês. 

Uma das alternativas seria prever vários cam- 
pos no próprio registro: 

- Cód i go do Material 

- Descr i ção 

- Data da Entrada 


4 

25 

6 


- Número do Documento de Entrada 10 

- Quantidade de Entrada 5 

- Data da Saída 6 

- Número do Documento de Saída 10 

- Quantidade de Saída 5 

- Data da Saída 6 

- Número do Documento de Saída 10 

- Quant i dade de Saída 5 

- Data da Saída 6 

- Número do Documento de Saída 10 

- Quantidade de Saída 5 

- Data da Saída 6 

- Número do Documento de Saída 10 

- Quant idade de Saída 5 

- Data da Saí da 6 

- Número do Documento de Saída 10 

- Quant i dade de Sa í da 5 


TOTAL = 155 bytes 


Nos arquivos, tanto do tipo sequencial como 
no randômico, a quantidade de campos de um registro 
deve, obr i gator i amente, ser fixo, não podendo se ter 
alguns registros com 8 campos e outros com 20. Todos 
o registros do arquivo devem ter a mesma quantidade 
de campos. 

Na presente alternativa, deixando-se um gran- 
de espaço para poder registrar as inúmeras saídas de 
determinados materiais de grande consumo, iremos in- 
correr no desperdício de espaço em disco pois haverá 
materiais que nem serio movimentados no mês. 

Outra alternativa seria a de separar as in- 
formações em 2 arquivos: 

- Arquivo 1 : 


- Cod i go do Mater i a I 4 

- Descr i ção 25 

- Data da Entrada 6 

- Número do Documento de Entrada 10 

- Quantidade de Entrada 5 

- Arqu i vo 2: 

- Data da Saída 6 

- Número do Documento de Saída 10 

- Quant i dade de Saída 5 


No primeiro arquivo serão registrados os mo- 
vimentos de Entrada e no outro serão registrados os 
movimentos de saída. Para cada Saída haverá um regis- 
tro correspondente. 

A vantagem está na economia de espaço em dis- 
co, pois só será criado um novo registro se houver mo- 
vimento. No caso do material que é muito consumido e 
que gera muitos movimentos de saída, haverá um regis- 
tro para cada saída, enquanto que aquele material que 
não foi movimentado não terá nenhum registro no arqui- 
vo 2. 

Observe que os arquivos, do jeito que foram 
definidos, não permitem que seja identificada qual sa- 
ída coresponde a qual material, é preciso incluir uma 
referência comum. No caso, escolhe-se como referência 
comum o Código do Material. 

O arquivo 2 fica sendo constituído, então, 
pelos seguintes campos: 


- Cód i go do Mater i a I 4 

- Data da Saída 6 

- Número do Documento de Saída 10 

- Quant i dade de Saída 5 


Da mesma forma em que um certo material pode 
ocasionar muitos movimentos de Saída, existe a possi- 
bilidade de um material dar muitas Entradas ao longo 
de um mês. Nessas situações iremos deparar com o mes- 
mo problema de desperdício de espaço em disco. 

Uma alternativa de se contornar esse problema 
seria a de se colocar as informações de Entrada em um 
arquivo separado. 

Nessa alternativa, o nosso sistema será com- 
posto por 3 arquivos: 

- Arquivo 1 : 


- Cód i go do Mater i a I 4 

- Descr i ção 25 

- Arqu i vo 2: 

- Cód i go do Mater i a I 4 

- Data da Entrada 6 

- Número do Documento de Entrada 10 

- Quantidade de Entrada 5 
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- Arquivo 3 : 


- Cód i go do Ma ter i a I 4 

- Data da Saída 6 

- Número do Documento de Saída 10 

- Quantidade de Saída 5. 


Observe que a -aparência dos arquivos 3 e 3 
são bem semelhantes. Se você se lembrar do que foi 
discutido no capítulo 4 sobre "buffer” verá que o tra- 
balho com muitos arquivos poderá complicar um pouco a 
operação do sistema. 

Então é melhor juntar os arquivos 2 e 3 em um 
único arqu i vo, acrescentando, porém, uma informação pa- 
ra poder diferenciar os registros de Entrada e de Saí- 
da. 

Resultam, então, os seguintes campos para o 
arquivo de Movimento.- 


- Data do Movimento 6 

- Hi stór i co 10 

- Código do Material movimentado 4 

- Quantidade Movimentada 5 

- Tipo do Movimento (Entrada ou Saída) 1 


Vamos aproveitar para incluir nesse arquivo, 
algumas informações necessárias no sistema e que não 
seriam bem inseridas no arquivo de movimento. Essas 
informações são as seguintes: 

- Tipo do Material 

- Saldo do Período Anterior 

- Saldo Atual do Estoque 

- Quantidade Mínima no Estoque 

- Data da última Entrada 

- Data da última Saída 


Resultam, então, os seguintes campos para o 
Cadastro de Materiais: 


- Cód i go do Material 

- Descrição do Material 

- Tipo do Mater i a I 

- Saldo do Período Anterior 


- Saldo Atual do Estoque 

- Quantidade Mínima no Estoque 

- Data da última Entrada 

- Data da última Saída 


Para podermos ter um controle rígido sobre o 
sistema, vamos criar um outro arquivo, onde possamos 
armazenar algumas informações que não estejam relacio- 
nadas diretamente com os materiais e nem com os movi- 
mentos. 

Como essas informações controlam o sistema, 
o_arqu i vo será um arquivo de Parâmetros. As informa- 
ções que fazem parte desse arquivo são as seguintes: 

- Nome do Sistema 

- Número do Mês em Andamento 

- Nome do Mês em Andamento 

- Quantidade de Registros no Cadastro de 
Mater i a i s 

- Quantidade de Registros no Arquivo de 
Movimento 

- última Data Acessada 


ANÁLISE DO SISTEMA DE PROGRAMAS 

Seguindo o roteiro apresentado no início des- 
te capítulo, resultará o seguinte desenho do sistema: 


CMCAD.BAS 



1 45 





















A 


AUTOEXEC . BAS COMAT . BAS 


Inicia! i za 
o 

S i stema 


Opções 

do 

S í stema 


i 


CMREL .BAS 

Escolhe 
Relatório 


CMREL?. RAS 


Emite o 
Relatório 
-?- 


CMREL3 . BAS 


Emite o 
Relatório 
- 3 - 


CMREL4.BAS 


Emite n 
Relatório 
- 4 - 


CMREL5 . BAS 


Emite o 
Relatório 
- 5 - 


CMENC.BAS 


Encerra 

o 

Mes 


CMMAN.BAS 


Manutenção 
Arquivo de 
Parâmetros 















eficiência 
dos proaraiqas 


Os problemas que são encaminhados para^serem 
solucionados com o auxílio de computadores, o são, na 
maioria das vezes, para se ganhar tempo. 

Isso significa que os programas, antes de ma- 
is nada, têm o compromisso de serem velozes. 

A velocidade de execução de um programa de- 
pende, infelizmente, de vários fatores e nem todos os 
programadores possuem o conhecimento necessário para 
permitir que os programas sejam estruturados de tal 
forma a assegurar o menor tempo na execução. 

Como veremos, "programar" não é simplesmente 
estabelecer um simples roteiro lógico. Para conseguir 
fazer a afirmação "Eu consegui fazer um programa que 
resolve tal problema" não é necessário um esforço mui- 
to grande. 

A programação é uma arte e como tal requer 
uma dedicação especial. O programador que se dedicar 
firmemente em conhecer profundamente a maneira como um 
programa é executado pelo computador descobrirá uma 
série de macetes que tornam o programa ma i s. ef i c i ente . 

Vejamos alguns fatores que de alguma forma 
estejam relacionados com a velocidade dos programas: 


1 - Ocupação da memória. 

2 - Estrutura dos programas (como foram divididos 

e estão relacionados). 

3 - Estrutura dos arquivos (como foram divididos e 

estão relacionados). 


148 


4 - Estrutura interna dos programas (como o pro- 

grama está estruturado, onde estão as rotinas 
mais executadas, algorítimo empre gado). 

5 - Programa Fonte e Programa Objeto. 

6 - Compilação de Programas. 


OCUPACaC da MEHdRIA 

Se fosse possível tirar uma fotografia da me- 
mória durante a execução de um programa, veríamos que 
a RAM é dividida em várias partes distintas, onde cada 
uma dessas partes possue uma atribuição própria e de- 
sempenha uma determinada função específica para permi- 
tir que um programa seja executado cor r e tamente . 

Vejamos, em detalhes, quais são essas partes, 
onde elas residem, a função de cada uma e como elas 
são estruturadas para que o desempenho do programa se- 
ja o mais eficiente possível. 

Tais partes são as seguintes: 

A - Área do Programa. 

é a região em que o programa fica armazenado. 

fl - Variáveis. 

( a região onde ficam armazenadas as tabelas 
de variáveis. 

C - Matr i zes . 

é a região onde ficam armazenados os valores 
que correspondem as variáveis na forma de matriz, tam- 
bém conhecidas como Vetores ou Arrays. 

D - Buf f er . 

É a região onde são armazenados, provisoria- 
mente, os dados que transitam entre o programa e os 
periféricos conectados ao computador. 

E - Str i ngs . 

é a região onde são armazenados os conteúdos 
das variáveis Strings do programa. 

F - Stackers’. 

é a região onde são armazenadas as tabelas de 
endereços de controle do programa, também conhecidas 
como Stackers, pois tais tabelas são montadas na forma 
de pilhas. 
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A - 0 computador está desligado. 

B - O computador está ligado, porém está sem 
nenhum programa na memória. 

C - Um programa foi carregado na memória, mas 
ainda não foi executado . 

D - 0 programa está em execução ou acabou de 
ser executado. 


0 apêndice II apresenta os mapas de ocupação 
da memória de alguns microcomputadores. 

Vejamos, em detalhes, o conteúdo e a forma de 
cada uma das áreas: 


A - Área do Programa. 

É a região em que o programa fica armazenado, 
na sequência em que as instruções foram digitadas. 

Uma linha do programa fica armazenada na se- 
guinte forma*. 


EEEE 

LLLL 

CC 

texto 

00 | 


Exemp I o : 


100 PRINT "MSX" 



0D80 

6400 

91 

20224D535822 

00 

00 | 


L 


00 fim do programa. 

00 f im da li nha . 
Texto do comando. 
Código do comando. 
Número da linha. 
Endereço da próxima 

1 i n h a. 


A próxima linha do programa ficará em segui- 
da, de modo que um programa com as instruções: 
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100 PR INI "MSX” 
110 PRINT "BRASIL 


»> 


ficará com o seguinte aspecto, na memória.- 
8000 800D 

* i 


00 

0D80 

6400 

91 

20224D535822 

00 

1 C80 

beI 


801 C 

* 


l 00 

91 

2022425241 53494C22 

00 

00 f 


Adicionando-se uma nova linha ao programa. 


100 PRINT "MSX" 

105 PRINT 

110 PRINT "BRASIL" 


o programa ficará com o seguinte aspecto na memória: 


8001 


8000 






00 

0D80 

6400 

91 | 


20224D535822 00 1380 


6900 


91 


8013 


t 


8022 


| 00 

2280 

6E00 

91 

2022425241 53494C22 

00 

00 | 


Como se vê, a cada nova linha que inserimos 
no programa, todas as linhas, que se situam após a li- 
nha inserida são deslocadas e os endereços de todas 
as linhas deslocadas são recalculados. 
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A área do programa tem início no endereço 
TXTTAB e termina no endereço VARTAB. 


B - Variáveis. 

é a região onde ficam armazenadas as tabelas 
de variáveis. 

, A tabela de variáveis possue uma sintaxe ge- 

nérica dO tipO: 


cc 


NNNN 


parâmetros 


Reação de parâmetros, 
conforme o tipo 
de variável. 

Nome da variável. 
Código do tipo de 
var i áve I . 


Para os diversos tipos de variáveis aceitas 
pelo BASIC, a tabela pode assumir uma das formas se- 
gui n tes : 


- Var i áve I inteira: 


02 NNNN VVVV 







Valor da variável 
( 2 bytes ) . 

Nome da var i áve I , 
2 bytes . 

Código 02. 


em b i nár i o 
ocupando 


- Variável em ponto flutuante: 


04! NNNN 


VVVVVVVV 


Valor da variável 
(4 bytes ). 

Nome da var i áve I , 
2 bytes . 

Código 04. 


em binário 
ocupando 
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- Variável em precisão dupla: 



08 NNNN VVVVVVVVVVVVVVVV 


* Valor da variável em binário 

( 8 bytes ) . 

Nome da variável, ocupando 8 

bytes . 

Código 08. 

A área tem início no endereço VARTAB e termi- 
na no endereço ARYTAB. 


C - Ma t r i zes . 

É a região onde ficam armazenados os valores 
que correspondem às variáveis na forma de matriz, tam- 
bém conhecidas como Vetores e Arrays. 

A tabela de variáveis possue uma sintaxe ge- 
nérica do t i po : 


CC NNNN LLLL DD 1 0000 1111 8222 3333 


Valores das 
matr i zes . 
Quantidade de 
e I ementos 
da matr i z in- 
clusive o 0. 
Dimensão da 
matriz. 

Comprimento da 
tabe I a . 

Nome da Matr i z 
Código que in- 
dica o t i PO: 

02 = i nte i r a 

03 = str i ng 

04 = precisão 

simples 
08 = precisão 
dup I a 


- Para matriz de 1 dimensão: 


cc 

NNNN 

LLLL 

01 

o 

o 

o. 

o 

1111 

2222 

3333 


Va I ores das 
matrizes. 
Quantidade de 
elementos da 
matriz, inclusi- 
ve o 0. 

Dimensão da 
matriz. 

Comprimento da 
tabela. 

Nome da matriz. 
Código que in- 
dica o tipo. 


- Para matrizes de 2 dimensões*. 


|cc 

NNNN 

LLLL 

02!Vm 

HHHH 

1111 


Valores da 
matriz. 
Quantidade de 
elementos hori- 
zonta i s { I i nhas 
inclusive a ( 0 ) . 
quantidade de 
elementos ver- 
ticais (colu- 
nas ), inclusive 
a (0). 

Dimensão da 
mat r i z . 

Comprimento da 
tabela. 

Nome da matriz. 
Código que in- 
dica o tipo. 
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Genericamente, podemos estabelecer a seguinte 
fórmula, para calcular o espaço necessário para uso de 
matrizes: 


DIM var iável(N) — 8+{N+1 )*T 

D I M var iável(M.N) — 1 0+(M+1 )*( N+1 )*T 

etc . 


onde T = 2 para variável inteira. 

3 para var i áve I str i ng . 

4 para variável de precisão simples. 

8 para variável de precisão dupla. 

A área tem início no endereço ARYTAB e termi- 
na no endereço STREND. 


D - Buf f er . 

é a região onde são armazenados, provisoria- 
mente. os dados que transitam entre o programa e os 
periféricos conectados ao computador. 

Na área dos buffers. são reservados 267 bytes 
para cada arquivo que se abre. 

A finalidade desses bytes é a seguinte: 


- File Co n t r o I Block 9 

- Po i n ter 2 

- Dados 256 


TOTAL = 267 bytes. 


Inicialmente são reservados 536 hytes, o su- 
ficiente para caber 2 buffers. o que equivale ao co- 
mando MAXF1LES = 2. 

A área tem início no endereço FIITAB e termi- 
na no endereço HIMFM-1 . 


E - St r i ngs . 

É a região onde são armazenados os conteúdos 
das variáveis Strings do programa. 
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[02 

í NNNN LL 

EEEE 









Endereço do valor da strlng. 
Comprimento da string. 

Nome da variável, ocupando 2 bytes. 
Código 03. 


A área tem início no endereço STKTOP+1 e ter- 
mina no endereço FRETOP. 

O conteúdo da variável string, quando defini- 

a* -mcS.. ® nte n ? P r °9rama, com uma instrução do tipo* 
a$= n5X , e a própria instrução, de modo que o endere- 
ço que o MSX armazena nos quinto e sexto bytes da ta- 
bela de definição da variável A$ apontará para o ende- 
reço dentro da instrução. 

O conteúdo da variável string, quando redefi- 
nida, com uma instrução do tipo: A$=A$+”MSX", resul- 
tando em uma string diferente daquela com que a variá- 
vel foi inicialmente definida, é armazenada na área de 
string. Nestes casos, o espaço ocupado é exatamente o 
comprimento da string. 

Inicialmente o MSX reserva um espaço corres- 
pondente a 200 bytes, para evitar de ficar deslocando 

os Stackers a cada novo byte necessário na área de 
s t r i ngs . 


F - Stackers. 

É a região onde são armazenadas as tabelas de 
endereços de controle do programa, também conhecidas 

como Stackers, pois tais tabelas são montadas na forma 
de pilhas. 

Um desses endereços é, por exemplo, o endere- 

dctmdm 1,6 0r " 0 . <le um G0SUB - Quando encontrar um comando 
KtiURN, o sistema operacional consultará o STACK para 
saber onde ele estava antes de desviar para a rotina. 

G - Area Livre. 

, .. j; .? fsgião da memória que sobra depois que 

foram distribuídos todos os espaços necessários para 
cada uma das partes. 

Como se vê, o espaço que um programa precisa 
para ser executado é bem maior que o tamanho do pro- 
grama propriamente dito. 
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ESTRUTURA DOS PROGRAMAS 

Para planejarmos o espaço que um programa 
ocupa na memória, devemos considerar, além do espaço 
acupado pelo programa, os seguintes espaços ocupados 
pelas variáveis, buffers e stackers: 


- var i áve i s : 
i nte i r as 

pr ec i são simples 
precisão dupla 
st r i ngs 


5 bytes por 
7 bytes por 

11 bytes por 

6 bytes por 


variável 
variável 
var i áve I 
variável 


- matrizes de uma única dimensão: (N) 


inteiras 

precisão simples 
precisão dupla 
st r i ngs 


8+( N+1 )*2 
8+( N+1 )*4 
8 + ( N+1 )*R 
8+( N+1 )*3 


- matrizes de duas 
i nte i r as 

pr ec i são simples 
precisão dupla 
st r i ngs 


dimensões: { M, N ) 

10+(M+1 )*(N+1 )*2 
1 0 + ( M+1 )*( N+1 )*4 
10+{M+1 )*{ N+1 )*8 
10 + (M+1 )*( N+1 )*3 


- matrizes de três dimensões: (L,M,N) 


i nte i r as 

pr ec i são simples 
precisão dup I a 
st r i ngs 


1 2+( L + 1 )*( M+1 )*( N+1 )*2 
12+( L + 1 )*( M+1 )*{ N+1 )*4 
12+{ L + 1 )*( M+1 )*( N+1 )*8 
1 2+( L + 1 )*( M+1 )*(N+1 )*3 


- buffers: (MAXFILES=X) 2+X*267 

- strings: somatória dos comprimentos das 
strings definidas pelo programa. Inicial- 
mente é reservado um espaço de 200 bytes. 

- stackers: 2 bytes para cada GOSUB. 
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_A sarna de todas essas áreas necessárias para 
a execução do programa não deve ser superior ao espaço 

0 programa, que r a área que vai desde 
i a M «n ate Hl nrn . 


Num computador MSX sem disk drive, esse espa- 
í" f dR PB-B1R hytes. enquanto que cm um computador 
MSX com disk drive, esse espaço é reduzido de 4 nu 5 
Khytes, aproximadamente 

__ u ?um computador IBM-PC. esse espaço é de 
R c?.465 hytes. 

Num computador APPLF com placa HP/M e 64 
Khytes de memória, esse espaço é de ?6.483 hytes. 


0 que fazer se o espaço necessário for maior 
que esse I imi te? 

Uma das alternativas é estudar a listagem do 
programa e procurar reduzir as áreas ocupadas prias 

variáveis, o que pode ser feito por uma das seguintes 
mane i r as : 


1 - Diminuir a quantidade de variáveis. 

FnD McvT° r exemp, °' 5e no Programa existem vários 
ruK...NFXT, procurar fazer com que tais comandos usem 
sempre a mesma variável de controle. Usar FOR N=1 TO 
10 em um lugar e usar FOR 1=1 TO 20 em outro lugar, 
isto e , a variável N para um caso e a variável I para 
outro caso, pode ser que facilite a interpretação do 
programa, mas obriga a um consumo adicional de 11 by- 
tes, talvez sem necessidade. 


2 Usar o tipo de variável que ocupe menos 
espaço . 

No mesmo exemplo anterior, se o FOR...NEXT 
for controlado por um STEP de número inteiro, não é 
necessário usar uma variável de precisão dupla. Usan- 
do, por exemplo, FOR N%=1 TO 10, você economizará 6 
bytes. Lembre-se que o MSX assume como sendo de preci- 
são dupla, todas as variáveis cujo tipo não esteja es- 
pecíficado com os símbolos V ! ou# ou com os coman- 
dos DEFINT, DEFSGN ou DEFDBL . 

Da mesma forma, certos tipos de variáveis co- 
mo a IDADE deve sempre ser definida como uma inteira. 
Tal recomendação é muito importante, principalmente no 
caso em que a variável estiver na forma de uma matriz. 
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0 comando D1M IDADE(200) reservará um espaço 
de 1.616 bytes, enquanto que o comando DIM IDADEV200) 
reservará apenas 410 bytes, economizando, portanto, 
1 .206 bytes. 

Outra alternativa seria dividir o programa em 
2 outros programas menores, fazendo com que um deles 
chame o outro, o que apresenta uma série de vantagens, 
que podemos enumerar: 


1 - Programas pequenos são mais rápidos para 
serem transferidos. 

A transferência de um programa de um perifé- 
rico onde ele está armazenado, por exemplo, fita cas- 
sete ou disco magnético, é feita byte a byte, de modo 
que programas mais longos consomem um tempo maior para 
serem transf er i dos. 

Durante a confecção de um programa, é grande 
a frequência de SAVE e LOAD que efetuamos. Programas 
curtos serio transferidos em tempos menores, diminuin- 
do sensivelmente o tempo que o programador terá que 
esperar para a execução de tais comandos. 

Da mesma forma, durante a fase de testes do 
programa, quando imprime-se a listagem do programa com 
certa frequência, o tempo economizado nas impressões é 
bastante cons i der áve I . 


2 - Programas pequenos são mais práticos de 
serem man i pu I ados . 

Como dito acima, a transferência de programas 
entre os periféricos é feita byte a byte. Durantea 
transferência podem ocorrer fatos inesperados, tais 
como uma oscilação na tensão de alimentação (voltagem) 
o que pode provocar uma perda de alguns bytes. *0 modo 
tecnicamente correto para se evitar tais fatos seria 
dotar o computador de um sistema de tensão garantida, 
adquirindo aparelhos conhecidos como "No-breaks”, que 
pelo seu alto custo só são acessíveis a poucos privi- 
legiados. Ao programador menos privilegiado só resta 
mesmo a alternativa de tentar fazer com que o tempo de 
transferência seja o menor possível, fazendo com que 
o programa seja o mais curto possível. 

A divisão de um programa em 2 ou vários ou- 
tros programas menores é perfeitamente válida, pois um 
programa, independentemente do seu tamanho é executa- 


em Programas^ongns 'em^n^dado"^^^^ 30 ' 6 mesmo 
estará executando ^ uma deTeímfnada n t’ 0 - cnmputador 
aguela única instrução Fntln nnai i n s t r uçao , apenas 

tercarregado na memória o programa todo^n^tna de Se 
opcoes ons^íupic - M y d " 1 d tooo com todas as 

oSísr. B s??sií:'3 e c 5 : aa " >e ;r pu,, '’ or «-«-*» -ã 

c a pacidads”a,' e U I e ”;,“,„'" í?r p “ f3,l : r ' s ser3 ° datados da 
neamente Até lá ... mi,hares de instruções simul ta- 

tros menores f deve°ser feita^f 6 P :° 3rama ™ vários ou- 
ffeos. de acorí cia L lí 05 crítér ios especí- 
se de várias técnicas -IITIJÍ !í? r .fa" f 0 ' V ' ^ 

1 - Conexão Direta. 

diretamen?e 8Sí e a m t fíSclJ'dal P n° S : 3ma , S I icam ^nectados 
Assim. se úm dos programas ™r«f SS l da 2 es do sistema. 

cada uma dessas a 1 t e r na t i vas aP £ 8 p * ° * 3 + ? h 3 1 f e r na 1 1 vas e 
arama distinto havprá im/L executada por um pro- 

da ™ d.sscs 5 prog,"mas h *" a<,a e5 '"" ,i ” <•>'> »- 


Programa A 


Chama C 
Chama B 




2 outras Sp^es- 3 ™ â ' P ° r Süa vez ' poderá apresentar 
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Programa A 


Chama C 
Chama B 


? 


Programa B 

Chama D 
Chama C 


0 programa C, 
outras 2 opções: 
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11 



Programa C 





Programa D 


por sua vez, poderá apresentar 










Programa C 




Chama B 




Chama D 

"1 


Programa D 


E, finalmente, o programa D poderá também 
apresentar alternativas: 
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A Conexão Direta apresenta a vantagem de o 
sistema acessar diretamente o programa desejado, agj- 
lizando a carga do programa, porém, na interpretação 
das conexões apresenta-se um tanto confusa, principal- 
mente em grandes sistemas onde a presença de um número 
relativamente grande de programas poderá acarretar uma 
interpretação errada do sistema. 


2 - Conexão em Estr e I a : 

Neste esquema de conexão, existe um programa 
centralizador, que fazias vezes de programa de Cardá- 
pio de Programas: 



A interpretação de um diagrama como este é 
bem mais simples, pois todas as chamadas a quaisquer 
dos programas é feita sempre pelo programa Menu e o 
retorno de qualquer dos programas é sempre feita para 
o programa Menu. Apresenta, porém, o incoveniente de, 
caso exista uma situação em que o programa B, por 
exemplo, necessite do programa C, a transferência de- 
verá ser efetuada em duas etapas, isto é, inicial mente 
o programa B deverá chamar o programa Menu e em segui- 
da o programa Menu deverá chamar o programa C. 


1 64 






Para permitir que um programa chame um outro, 
o BASIC oferece os seguintes comandos: 

- RUN 

- LOAD 

Vejamos as formas de chamada em cada um des- 
ses casos: 


1 - Comando RUN 

0 comando RUN é a alternativa normal emprega- 
da quando se deseja transferir o comando do sistema de 
um programa para outro. 

Em geral, a escolha de qual dos programas é 
feita por um Menu de Opções, onde o usuário irá indi- 
car qual o seu desejo. Em seguida, o programa escolhe- 
rá a opção usando, por exemplo, o comando IF: 


411 IF OPCAO=1 THEN RUN "ArPROGA" 

412 IF 0PCA0=2 THEN RUN ~A : PROGB" 

413 IF 0PCA0=3 THEN RUN "AíPROGC” 


Neste caso, ao executar o comando RUN, o pro- 
grama que está na memória é apagado e no seu lugar é 
colocado o programa carregado. 

Todas as variáveis do primeiro programa são 
perdidas, assim como, todos os arquivos abertos são 
sumariamente fechados. 


2 - Comando LOAD. 

O comando LOAD funciona de forma semelhante 
ao comando RUN, apresentando apenas uma diferença: Se 
o comando for executado com o parâmetro ",R" os arqui- 
vos porventura abertos no primeiro programa continua- 
rão abertos no segundo, de modo que não existe a ne- 
cessidade de se abrir novamente esses arquivos no iní- 
cio do programa chamado. O emprego desse comando é 
idêntico ao dq comando RUN, isto é : 


411 IF OPCAO=1 THEN LOAD ”A.-PROGA”.R 

412 IF 0PCA0=2 THEN LOAD ”A=PROGB”.R 

413 IF 0PCA0*3 THEN LOAD "A = PROGC" , R 
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Como em qualquer das alternativas acima as 
variáveis são perdidas, desejando-se passar os valores 
das variáveis de um programa para outro, deve-se criar 
um arquivo temporário e nele gravar o conteúdo das va- 
riáveis que necessitam ser passadas para o outro pro- 
grama . 


ESTRUTURA DOS ARGUIMOS 

Um arquivo, como vimos no capítulo 4 t pode 
ser do tipo sequencial, randômico ou um arquivo de 
programa. 

I ndependentemente do seu tipo, o arquivo não 
fica disposto de forma contínua no disco. 

0 acesso ao disco é feito por módulos conhe- 
cidos como "setores". 

No sistema MSX, cada setor tem normalmente 
capacidade para 512 bytes. 

Deste modo, um arquivo com 2.000 bytes irá 
ocupar 4 setores do disco conforme o esquema seguinte: 


Setor 1 (512 bytes ) 


Setor 2 { 512 bytes ) 


Setor 3 (512 bytes ) 


Setor 4 (512 bytes ) 


Esses 4 setores não ficam necessariamente um 
ao lado do outro como seria de se imaginar. De acordo 
com a disponibilidade de espaço no disco, o sistema 
operacional irá alocar esses setores onde for mais 
conveniente, de modo que eles poderão estar, um no 
começo do disco, outro no meio e os demais no fim do 
d i sco. 

Para compreendermos melhor o esquema de alo- 
cação de setores, vamos representar, de modo simplifi- 
cado, a vida de um disquete. 

1 - O disquete foi recém formatado, de modo que todos 

os setores estão I i vres . 

2 - Nesse disquete foi definido um arquivo de 2.000 

bytes. 
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Setor 1 

Setor 2 Disponível Arquivo 1 

Setor 3 3.048 bytes usa 2.000 bytes 

Setor 4 


3 - Vamos supor que nesse disco seja definido um se- 
gundo arquivo contendo 600 bytes. 


Setor 1 
Setor 2 
Setor 3 
Setor 4 

Di sponí ve 1 
2.048 bytes 

Arqu i vo 1 
usa 2.000 bytes 

Setor 5 
Setor 6 

Di sponí ve 1 

1 .024 bytes 

Arquivo 2 
usa 600 bytes 


4 - Agora, imagine que no Arquivo 1 sejam adicionados 
mais alguns registros e que após isso o tamanho do 
arquivo passe para 2.100 bytes. 

Anteriormente o arquivo utilizava apenas 
2.000 bytes embora tivesse reservado 2.048 bytes. Ti- 
nha, portanto, 48 bytes sobrando, sem uso. 

Dos 100 novos bytes necessários 48 serão gra- 
vados nessa sobra que havia. E os 52 restantes, onde 
serão gravados ? 

0 sistema operacional reserva um novo setor 
de 512 bytes e grava nele esses 52 bytes restantes do 
arquivo. Mas onde está esse novo setor ? 

O sistema procura o primeiro setor livre do 
disco, que no caso presente é o setor 7: 


Setor 1 
Setor 2 
Setor 3 
Setor 4 

Disponível 
2.048 bytes 

Arquivo 1 
usa 2.000 b'ytes 

Setor 5 
Setor 6 

Disponível 

1 . 024 bytes 

Arquivo 2 
usa 600 bytes 

Setor 7 

Di sponí ve 1 

512 bytes 

Arquivo 1 (continuação) 
usa 52 bytes 
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5 - Caso, nesse disro seja gravado um Arquivo 3, com 
800 bytes, o disco terá a seguinte ocupação: 


Setor 1 
Setor 2 
Setor 3 
Setor 4 

Disponí vel 
2.048 bytes 

Arqu i vo ^ 

usa 2.048 bytes 

Setor B 
Setor 6 

Disponível 

1 .024 bytes 

Arquivo 2 
usa 600 bytes 

Setor 7 

Disponível 

BI P bytes 

Arqu i vo 1 ( cont i nuação ) 
usa B2 hytes 

Setor 8 
Setor H 

Di sponí ve 1 

1 . 024 bytes 

Arquivo 3 
usa 800 bytes 


O fato de um arquivo ficar armazenado em se- 
tores não contíguos como o Arquivo 1, não traz nenhum 
incoveniente pois o sistema operacional sabe disso. 

Quando um programa vai ler sequencialmente o 
Arquivo 1, o sistema operacional começa a leitura no 
primeiro setor que 6 o setor 1. 

Terminada a leitura dos BI? hytes desse setor 
o próximo será lido. Quando o último byte do setor 4 
for lido o sistema operacional saberá que deve ler_o 
setor 7. Para isso ele guarda uma tabela onde estão 
relacionados os números dos setores de cada arquivo. 

6 - Agora, imagine que o Arquivo ? foi eliminado: 


Setor 1 
Setor 2 
Setor 3 
Setor 4 

Di sponí vel 
2.048 hytes 

Arquivo 1 
usa 2.048 bytes 

Setor B 
Setor 6 

livre 

1 .024 bytes 


Setor 7 

D i sponí ve 1 

BI? bytes 

Arquivo 1 (continuação) 
usa B2 bytes 

Setor 8 
Setor 3 

D i sponí ve 1 

1 .024 bytes 

Arqu i vo 3 
usa 800 bytes 
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7 - Agora, imagine que novos registros foram adiciona- 
dos ao Arquivo 1 e que ele passnu a ter o tamanho 
de 2.800 bytes, de modo que os 5 setores anterior- 
mente reservados para ele não sejam mais suficien- 
tes . 


é claro que o sistema operacional irá reser- 
var um novo setor para esse arquivo. Só que agora, em 
vez de reservar o setor 10, irá reservar o setor 5. 0 
próximo setor a ser reservado é sempre o primeiro que 
está I i vre no disco. 


f 




Setor 1 

Setor 2 Disponível 

Setor 3 2.048 bytes 

Setor 4 


Ar qu i vo 1 
usa 2.048 bytes 


Setor 5 


Di sponí ve I 
512 bytes 


Setor 6 


Livre 


Ar qu i vo 2 ( cont i nuaçio 2) 
usa 240 bytes. 


Setor 7 


Di sponí ve I 
512 bytes 


Arquivo 1 (continuação 
usa 512 bytes 


Setor 8 Disponível 

Setor 9 1 .024 bytes 


Arqu i vo 3 
usa 400 bytes 


1 ) 


O acesso ao Arquivo 1 será feito na seguinte 
ordem de setores.- 

19 setor 1 
29 setor 2 
39 setor 3 
49 setor 4 
59 setor 8 
69 setor 5 

Embora para o sistema operacional não faça 
nenhuma diferença a ordem dos setores, a eficiência do 
programa pode ser prejudicada se eles não forem contí- 
guos. 

Como vimos no capítulo 4, um disco normalmen- 
é composto de 40 trilhas por face e cada trilha com- 
porta 9 setores. O disco tem, portanto, um total de 
360 setores (5 1/4"! ). 
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Considerando que cada setor 
que o disco tem ? faces, resulta que 
Kbytes ou seja ?x360 x 51? = 368.640 
Quando é feito um acesso ao 
acesso é composto pon 


ocupa 51? bytes e 
ele comporta 360 
bytes . 

disco, o tempo de 


- Tempo de deslocamento da cabeça para a trilha 
dese j ada . 

- Tcmpn dc espera até a chegada dn setor desejado. 
Enquanto o disco gira, os Í1 setores da trilha 
ficam passando continuamente. 

- Tempo de leitura ou de gravação quando todos os 
51? bytes do setor são lidos ou gravados. 


Desses tempos, o maior é o tempo de desloca- 
mento da cabeça entre uma trilha e outra. 

Quando um certo arquivo é antigo e durante a 
vida dele muitos registros foram sendo sucessivamente 
adicionados e ainda, outros arquivos foram sendo cria- 
dos e eliminados no mesmo disco, pode resultar uma se- 
quência de acesso do tipos 


1 9 

setor 

1 

?g 

setor 

? 

3Q 

setor 

3 

49 

setor 

171 

59 

setor 

1? 

69 

setor 

?46 

79 

setor 

5 


A leitura de todos os registros desse arquivo 
será relativamente lenta pois no meio das leituras a 
cabeça deverá ser deslocada muitas vezes de uma trilha 
para outra. 

Recomenda-se, nestes casos, transferir; com o 
comando COPY, o arquivo para um novo disco, recém for- 
matado. Nessa transferencia o sistema operacional irá 
reservar setores consecutivos no novo disco, de modo 
que o arquivo que no disco antigo estava espalhado por 
setores esparsos, no novo disco ficará todo junto, em 
setores contíguos. 
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ESTRUTURA INTERNA DOS PROGRAMAS 


A localização das instruções, dentro do pro- 
grama pode afetar sensivelmente a velocidade de execu- 
ção do programa. 

0 programa, embora seja uma sequência lógica 
ondeexiste um início e um fim, não necessita ter o 
início no princípio da listagem do programa. A primeira 
instrução de um programa pode perfeitamente ser uma 
instrução do tipo : 

1 GOTO 7800 

de modo que o início do programa estará no final da 
I i stagem. 

Vejamos algumas recomendações para aumentar a 
velocidade de execução de um programa. 


1 - Interpretador BASIC. 

Durante a execução de um programa em BASIC, 
o interpretador analisa uma instrução de cada vez e 
somente após a execução completa da instrução é que 
ele passará para a interpretação da próxima instrução. 

Como se sabe, as instruções, embora nas lis- 
tagens sejam apresentadas uma abaixo das outras, na 
memória são dispostas em sequência, havendo o código 
00 separando uma instrução da outra. 

Quando o interpretador encontra uma instrução 

do t i po : 

GOTO 6274 

ele não sabe, a priori, onde está a instrução 6874. 
Para encontrá-la, ele é obrigado a voltar para o iní- 
cio do programa e executar uma busca pela área de me- 
mória onde está o programa. 

Isso consome tempo e, para os defensores ar- 
dorosos da programação estruturada, temos um argumen- 
to de ordem prática para evitar o uso abusivo do co- 
mando Goto. 

8 - COMANDO DATA 

O comando DATA define, em geral, uma grande 
quantidade de informações, ocupando um longo trecho 
da memór i a . 
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Para o interpretador, é indiferente onde está 
localizado o comando DATA. 

Se considerarmos o que foi visto no item an- 
terior, veremos que a existência de um extenso comando 
DATA na parte inicial do programa fará com que as pro- 
curas pelos números das instruções acabem consumindo 
um tempo mu i to grande . 

Recomenda-se, portanto, colocar todos os 
DATA‘s na parte final do programa. 


3 - LOOP 

Os ciclos, dentro de um programa são mais fá- 
ceis de serem visualizados quando se usam os comandos 
FOR. . .NEXT. 

Lembre-se porém da possibilidade de se usar 
outros comandos, ( I F, por exemplo) que, dependendo da 
condição do ciclo, pode ocasionar uma diminuição do 
tempo de execução. 


4 - VARIÁVEL INTEIRA 

Sempre que possível, empregue variáveis inte- 
iras pois são mais rápidas de serem processadas. 

Compare os tempos gastos pelos programas se- 
guintes: 

100 T = TIME 

101 FOR N = 1 TO 1000 

102 NEXT N 

103 PRINT TIME - T 


100 T = TIME 

101 FOR NI = 1 TO 1000 

102 NEXT NI 

103 PRINT TIME - T 


100 T =TIME 

101 FOR NI = 1 T0 1000 

102 A = 1 

103 NEXT NI 

104 PRINT TIME - T 
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100 T = TIME 

101 FOR NI = 1 TO 1000 

102 At = 1 

103 NEXT N* 

104 PRINT TIME - T 


5 - FIM 00 l OOP 

Existem situações dentro do rir lo FOR...NFXT, 
em que desejamos encerrar a execução do ciclo sem ter 
ainda atingido a condição final. Nestes rasos, podemos 
igualar a variável de controle com a condição final. 

100 FOR N = 1 TO 1000 

101 PRINT N 

102 IF N > 12 THEN N = 1000 

103 NEXT N 

104 PRINT "FIM" 


6 - 0FFIN1CÕES DF VARIÁVEIS 

As variáveis do programa são definidas, isto 
p, um espaço para elas é alocado dinamicamente, na me- 
dida em que a execução do programa avança e é encon- 
trada uma nova variável. 

Se o programador prestar 3tenção ao mapa da 
memória apresentado no início deste capítulo, vai no- 
tar que as variáveis tipo Array são definidas acima 
das variáveis numéricas. 

Fx. ecutando o programa seguinte: 

100 DIM E( 1 00 ) 

101 PRINT VARPTR( E{ 1 )) 

102 B = 0 

103 PRINT VARPTR( E( 1 ) ) 

104 C = 12 

105 PRINT VARPTR( F( 1 ) ) 

0 programador poderá observar que a cada nova 
variável que^vai sendo definida no programa, o endere- 
ço onde estão as informações da matriz E ( n ) vai vari- 
ando, o que significa que a cada nova definição, toda 
a matriz está sendo deslocada na memória, o que conso- 
me, evidentemente, algum tempo. 
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mas : 


Para comprovar, execute os seguintes progra- 


180 T = TIME 

101 DIM E( 1 000 ) 

102 B = 0 

103 C = 18 

104 PRINT TIME -T 


100 T = TIME 

101 B = 0 

102 C = 18 

103 DIM E( 1000) 

10-1 PRINT TIME - T 


Recomenda-se definir todas as variáveis numé- 
ricas do programa antes da definição de qualquer ma- 
triz, mesmo que as variáveis sejam definidas com 
ZEROS. 


COMPILAÇÃO DE PROGRAMAS 


O BASIC Interpretado é aquele em que a execu- 
ção do programa é feita após a i nterpr etação de cada 
instrução. Isto é, em cada instrução é feita uma in- 
terpretação seguinda de uma execução. 

O que é I nterpr etação 1 

Interpretar significa traduzir a instrução 
que está montada segundo a sintaxe da linguagem BASIC 
para uma instrução em linguagem do 780, para ser exe- 
cutada . 

0 microprocessador só entende programas do 

t i po : 


11 03 00 
CD 50 AB 
17 


30 FA 
1 F 
C9 


LD DE, 0003 
CALL CONOUT 
RLA 

JR NC, VOLTA 

RRA 

RET 


que são programas em linguagem de máquina. 

O interpretador converte instruções em BASIC 
para instruções em Linguagem de Máquina e executa-as 
logo a seguir. Após a execução, pega a próxima instru- 
ção BAS IC e repete o ciclo. 
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Usando-se o BASIC Interpretado, na execução 
do programa estará embutido o tempo de conversão. 

0 Compilador é um utilitário que converte não 
apenas uma instrução mas o programa todo de BASIC para 
Linguagem de Máquina sem executá-lo. 

A entrada para o Compilador é o programa em 
BASIC e a saída é o programa já convertido em um pro- 
grama em Linguagem de Máquina. 

0 programa poderá ser executado após a compi- 
lação. _Neste caso, não haverá mais o tempo de inter- 
pretação pois todas as instruções já estarão devida- 
mente interpretadas, de modo que a execução desse pro- 
grama compilado será muito mais rápida. 


CRIATIVIDADE 

Fmbora tenha sido apresentada ao longo deste 
livro uma série de dicas para agilizar a execução de 
um programa, o que vale mesmo é a criatividade do pro- 
gramador em criar algoritmos inteligentes capazes de 
resolver o_problema com eficiência, mesmo que a sua 
aparência não dê essa impressão. 

Fxperimente executar o programa abaixo e ana- 
lise n que faz o algori tmo = 


108 DEFINT l-M 

10E PRINT "Fornecer um numero impar maior que 3 : " 
104 INPUT "Tamanho" ; H 
106 GOSUB 200 

108 PRINT "Experimente somar as Horizontais, 
Verticais e Diagonais:” 

110 FOR I = 1 TO H 
112 FOR J s 1 TO M 

114 PRINT TAB(3*J)USING"###" ; A{ I, J) ; 

116 B = B + A{ I, J) 

118 NEXT J 

128 PRINT ”=”;B = B = 0 
122 NEXT I 
124 END 

P00 — 

202 'ALGORITMO 

204 * 

286 DIM A(M.M) 

208 K = M / 2 

210 L = 1 

212 I = I + K 
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21*1 

J = 

J * 1 




216 

IF 

L > M*M THEN 

RETURN 

218 

IF 

1 > M THEN 

1 

s 

1 - M 

220 

IF 

J > M THEN 

J 

s 

J - M 

222 

IF 

1 < 1 THEN 

1 

= 

1 ♦ M 

224 

IF 

J < 1 THEN 

J 

s 

J + M 

226 

IF 

AM.J) = 0 

THEN 

A(I.J) 


L = L + 1 : 

GOTO 212 * 

ELSE I s | + Ks 
J = J - 1 » 

GOTO 218 


Agora esqueça o algoritmo apresentado e pro- 
cure desenvolver um algoritmo que resolva o seguinte 
pr ob I ema : 

"Preencher uma matriz 5X5 com números sequenciais, 
começando pelo 1, sem repetir, de forma que a soma 
dos números dispostos em qualquer das horizontais, 
verticais ou diagonais, resulte sempre em 65". 


PROTECSO DE PROGRAMAS 

0 programador que pretende profissionalizar- 
se deve, além das preocupações apresentadas neste li- 
vro, preocupar-se com o esquema de distribuição dos 
programas. 

Não é raro encontrar programadores lamentan- 
do-se do fato de uma pessoa i nescr upu I osa estar ga- 
nhando muito dinheiro comercializando cópias de pro- 
gramas sem a autorização dos autores. 

Embora haja uma legislação sobre a matéria, 
nem sempre a mesma é obedecida e é quase impossível 
descobrir em que empresas estão as cópias ilegais de 
nossos programas. 

Muitos programadores, na tentativa de difi- 
cultar ou mesmo impedir a cópia ilegal dos programas, 
desenvolvem técnicas especiais de fazer uma gravação 
magnética ou física nos disquetes. Essas proteções, no 
entanto, tem uma duração efemêra pois após algum tem- 
po, algum programador pirata irá descobrir como é fei- 
ta a proteção e criará um Eliminador de Proteção capa? 
de produzir cópias facilmente copiáveis. 

Não perca muito tempo tentando desenvolver 
alguma técnica super-e I abor ada para a proteção do seu 
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progr 3 ma pois no mercado encontramos de?enas de pro- 
gramas que apresentam uma baixa eficiência justamente 

Plamenfe Sa p?ratead n ós a d# Pr ° tRÇ5n 6 me5r "° aSSÍm são 3r "- 

mente somente com pessoas o u 6 emp r e s á s " f d 8 n I a s °? e em ' cá- 
Pr ogr ama pravic ^ enciar um Contrato de licença de Uso do 

Nos países onde há uma grande produção de 
programas houve época em que se tentou proteger os 
programas por meio de técnicas de proteção gravadas 
nos disquetes, mas a tendência, hoje em dia, é de pre- 
ocupar-se com a idoneidade dos compradores. 
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exemplo de 
um sistema 


Este capítulo contém um exemplo prático de um 
sistema completo de programas para controle do estoque 
de materiais do almoxarifado de uma pequena empresa. 

0 exemplo controla apenas a parte tísica, is- 
to é, as quantidades de materiais, não entrando no mé- 
rito dos preços dos mesmos. 

A título de exercício, o programador poderá 
extender o controle para controlar os pagamentos (Con- 
tas a Pagar). Para isso deverá montar um arquivo para 
o Cadastro de Fornecedores e outro para o Registro e 
Acompanhamento de pagamento das duplicatas. 

Poderá também extender o controle para con- 
trolar o Custo de Consumo dos diversos setores da em- 
presa. Para isso deverá montar um arquivo para o Ca- 
dastro de Setores e outro para o Registro de Saída pa- 
ra os setores. 

Este sistema é a continuação da análise rea- 

são definidos os seguin- 


10- CMCANSA I . BAS 
11 - CMREL.BAS 
12- CMREL1.BAS 

13 - CMREL2. BAS 

14 - CMREL3.BAS 

15 - CMREL4.BAS 

16 - GMREL5. BAS 

17 - CMENC.BAS 

18 - CMMAN.BAS 


lizada no capítulo 7, onde 
tes programas* 

1 - AUTOEXEC. BAS 

2 - COMAT.BAS 

3 - CMCAD.BAS 

4 - CMMOV.BAS 

5 - CMREGENT.BAS 

6 - CMREGSAI .BAS 

7 - CMALTENT.BAS 

8- CMALTSAI .BAS 
9 - CMCANENT.BAS 
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ESPECIFICACSO DOS PROGRAMAS 


A seguir, comentamos brevemente o que faz e a 
que se destina cada programa de nosso sistema. 


AUTOEXEC.BAS 

Realiza a apresentação do sistema, quando so- 
licita que seja digitada a data de acesso. 

Carrega e executa o programa COMAT.BAS . 


COMAT.BAS 

Apresenta as opções do sistema, podendo car- 
regar e executar um dos seguintes programas: 

- CMCAD.BAS para cadastrar 

- CMMOV.BAS para movimentar materiais 

- CMREL.BAS para emitir os relatórios 

- CMENC.BAS para encerrar o mes 

- CMMAN.BAS para efetuar a manutenção do 
s i stema 


CMCAD.BAS 

Permite efetuar a inclusão de novos materiais 
no cadastro. Apôs a inclusão, carrega de volta o pro- 
grama COMAT.BAS . 


CMMOU.BAS 

Permite realizar a movimentação de materiais, 
carrega e executa um dos seguintes programas: 

- CMREGENT . BAS para dar entrada 

- CMREGSAI.BAS para dar saída 

- CMALTENT.BAS para alterar uma entrada 

- CMALTSA I . BAS para alterar uma saída 

- CMCANENT.BAS para cancelar uma entrada 

- CMCANSAI .BAS para cancelar uma saída 


Após a execução, carrega de volta o programa 
COMAT.BAS . 
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CMREL-BAS 


Permite escolher um dos relatórios programa- 
dos, feito por um dos programas* 


- CMREL1 .BAS 

- CMREL2. BAS 

- CMREL3. BAS 

- CMREL4.BAS 

- CMREL5. BAS 


para emitir o relatório RELAÇÃO 
DE MATERIAIS . 

para emitir o relatório SALDOS 
DO ESTOQUE . 

para emitir o relatório MOVIMEN- 
TO DO ALMOXAR I FADO . 
para emitir o relatório SAÍDAS 
DO ALMOXAR I FADO . 
para emitir o relatório POSIÇÃO 
DO ESTOQUE . 


Após a execução, carrega de volta o programa 
COMAT.BAS . 


CMENC.BAS 

Permite proceder ao encerramento do mes, 
quando os saldos são atualizados. 

Após a execução, carrega de volta o programa 
COMAT.BAS . 


CMMAN-BAS 

Permite consultar e alterar qualquer um dos 
dados do arquivo de parâmetros do sistema. Após a exe- 
cução, carrega de volta o programa COMAT.BAS . 


CMREGENT.BAS 

Permite efetuar o registro de uma entrada no 
estoque. Após a execução, carrega de volta o programa 
CMMOV.BAS . 


CMREGSAI .BAS 

Permite efetuar o registro de uma saída do 
estoque. Após a execução, carrega de volta o programa 
CMMOV.BAS . 
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CMALTENT.BAS 


Permite alterar os dados de uma entrada re- 
gistrada anteriormente. Após a execução, carrega de 
volta o programa CMMOV.BAS . 


CMALTSAI .BAS 

Permite alterar os dados de uma saída regis- 
trada anteriormente. Após a execução, carrega de volta 
o programa CMMOV.BAS . 


CMCANENT.BAS 

Permite cancelar uma entrada registrada ante- 
riormente. Após a execução, carrega de volta o progra- 
ma CMMOV.BAS . 


CMCANSAI.BAS 

Permite cancelar uma saída registrada anteri- 
ormente. Após a execução, carrega de volta o programa 
CMMOV.BAS . 

CMRELi -BAS 

Emite o relatório Relação de Materiais. Após 
a execução, carrega de volta o programa CMREL.BAS . 


CMREL2.BAS 

Emite o relatório Saldos do Estoque. Após a 
execução, carrega de volta o programa CMREL.BAS . 

CMREL3.BAS 

Emite o relatório Movimento do Almoxar i f ado . 
Após a execução carrega de volta o programa CMREL.BAS. 


CMREL4.BAS 

Emite o relatório Saídas do Almoxar i fado . 
Após a execução carrega de volta o programa CMREL.BAS. 
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CMREL5.BAS 

Emite o relatório Posição do Estoque. Após a 
execução, carrega de volta o programa CMREL.BAS . 

ESPECIFICAÇÃO DOS ARQUIVOS 

Cadastro de Materials 


- nome: CMCAD.ARQ 



- tipo: Randómico 



- Código do Material 

CD$ 

4 

- Descr i ção do Mater i a 1 

DC$ 

25 

- Tipo do Material 

TC$ 

10 

- Saldo do Período Anterior 

SR$ 

4 

- Saldo Atual do Estoque 

SL$ 

4 

- Quantidade Mínima no Estoque 

QM$ 

4 

- Data da última Entrada 

UE$ 

6 

- Data da última Saída 

us$ 

6 


Total = 63 bytes 

Arquivo de Movimento 


- nome, CMMOV.ARQ 

- tipo, Randómico 

- Data do Movimento MD$ 6 

- Histórico MH$ 1 0 

- Código do Material Movimentado MC$ 4 

- Quantidade Movimentada MQ$ 4 

- Tipo do Movimento { E/S ) MV$ 1 


Total = 25 bytes 

Arquivo de Parâmetros do Sistema 


- nome, CMPAR.ARQ 

- tipo, Randómico 

- Nome do Sistema TT$ 30 

- Número do Mes em Andamento NM$ 2 

- Nome do Mes em Andamento DM$ 9 

- Quantidade de Registros no Cadastro RC$ 2 

- Quantidade de Registros no Movimento RM$ 2 

- Ultima data Acessada: Dia UD$ 2 

Mes UM$ 2 

Ano UA$ 2 


Total = 51 bytes 
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MODELO DOS RELATÓRIOS IMPRESSOS 

Existe uma infinidade de relatórios possíveis 
para atender a cada situação específica de necessidade 
de informações do estoque. 

Tratando-se de um exemplo prático onde procu- 
ra-se consolidar os conhecimentos apresentados nos ca- 
pítulos anteriores, os relatórios aqui descritos foram 
selecionados^ de forma a consolidar as várias técnicas 
de programação e de acesso aos arquivos. 

Desse modo, os programas de emissão de rela- 
tórios apresentam uma complexidade crescente, na ten- 
tativa de demonstrar as técnicas para se obter: 

1 - Simples Rei ações 

São programas fáceis de serem elaborados pois 
operam em geral com um único arquivo. 

Como exemplo de um programa desse tipo é 
apresentado o programa CMREL1.BAS que imprime o rela- 
tório Relação de Materiais. 


12 3 4 

1 234567B901 2345678901 2345678901 2345678901 23 


01 

02 

03 

04 

05 

06 

07 

08 

09 

10 


Metalúrgica METAL Ltda. 

Controle de Materiais - MATERIAiS FL-XXX 
Data da Emissão: xx/xx/xx 
CODIGO DESCRI CAO TIPO 

xx xx xxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxx 


2 - Relação com Total ização 

São programas fáceis de serem elaborados pois 
operam sobre um arquivo, totalizando certas quantida- 
des em um acumulador que é impresso no final do rela- 
tório. 

Como exemplo de um programa desse tipo é 
apresentado o programa CMREL2. BAS que emite o relató- 
rio Saldos do Estoque. 


12 3 4 5 

1 2345678901 2345678901 2345678901 2345678901 2345678901 


01 

02 

03 

04 

05 

06 

07 

08 

09 

10 
11 

63 

64 

65 


Metalúrgica METAL Ltda. 

Controle de Materiais - SALDOS DO ESTOQUE FL-XXX 
Data da Emissão* xx/xx/xx 


CODIGO 

DESCRICAO 

SALDO 

ULT. ENTRADA 

xxxx 

xxxx 

xxxx 

xxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxx 

xxxxx 

xxxxx 

xx/xx/xx 

xx/xx/xx 

xx/xx/xx 

Quantidade de Itens no Cadastro= 

xxxx 



3 - Relação Cruzada. 

São programas ainda fáceis de serem elabora- 
dos pois operam basicamente sobre um arquivo, buscando 
em outro a informação complementar. 

Como exemplo de um programa desse tipo e 
apresentado o programa CMREL3.BAS que emite o relató- 
rio Movimento do Almoxar i f ado. 


í 2 3 4 5 

Í234567890Í 234567890Í 234567890Í234567890Í 234567890Í2345678 


01 

02 

03 

04 

05 


Hetalurgica METAL Ltda. 

Controle de Materiais - MOVIMENTO DO ALNOXARIFADO FL-xxx 
Data da Eaissaoi xx/xx/xx 


06 

07 

08 
09 
í 0 
ii 
Í2 
Í3 
Í4 

15 

16 
65 


DATA DESCRICAO DOCUMENTO ENTRADA SAIDA 

xx/xx/xx xxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxx xxxxx xxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxx xxxxx xxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxx xxxxx xxxxx 

xx/xx/xx xxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxx xxxxx xxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxx xxxxx xxxxx 
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^ - Rei ação Ordenada-I . 


São programas que Imprimem relatórios 
oos, sem. no entanto, ordenar o arquivo. 

Como exemplo de um programa desse 
apresentado o programa CMREL4. BAS que emite o 
rio Sai das do Almoxar i fado . 


ordena- 

tipo é 
rei ató- 


01 

02 

03 

04 

05 

06 

07 

08 

09 

10 
11 
12 
65 


1 2 3 4 

1 2345678901 2345678901 2345678901 2345678901 2345 


Meta 1 urg 

i ca METAL Ltda. 


Cont ro 1 e 

de Materiais - SAÍDAS 

FL-xxx 

Data da 

Emlssaoi xx/xx/xx 


DATA 

DESCRICAO 

QUANTIDADE 

xx/xx/xx 

xx/xx/xx 

xx/xx/xx 

xxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxx 

xxxxx 

xxxxx 


5 - Relação Ordenada-I I 


São programas 
arquivo. Como exemplo 
apresentado o programa 
rio Posição do Estoque. 


i 


que efetivamente ordenam o 
de um programa desse tipo é 
CMREL5. BAS que emite o relató- 


0Í 

02 

03 

04 

05 

06 

07 

08 

09 

10 
11 
65 


2 3 4 5 i 

12345678901234567890123456789012345678901234567890123456 


Metalúrgica METAL Ltda. 

Controle de Materiais - POSICAO DO ESTOQUE FL-xxx 
Data da Eeissao: xx/xx/xx 
DESCRICAO 


ANTERIOR 

ENTRADAS 

SAÍDAS 

ATUAL 

xxxxx 

xxxxx 

xxxxx 

xxxxx 

xxxxx 

xxxxx 

xxxxx 

xxxxx 

xxxxx 

xxxxx 

xxxxx 

xxxxx 
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DESENHO DAS TELAS DE TRABALHO 


A seguir estão relacionados os desenhos de 
todas as telas de trabalho do sistema de controle de 
mater i a i s . 

PROGRAMA: AUTOEXEC . BAS 


01 2345678901 2345678901 2345678901 23456789 



PROGRAMA, COMAT.BAS 


01 2345678901 2345678901 2345678901 23456789 


ater i ais 
Li PC'-> ES < 



ma ter íal 


terna 

sarnento 


1 1 st 


ru n 


PROGRAMA CMCAD.BAS 
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C0W^<S)vj00D^Í^^4^0^r^íS'Vj00D--JCr-' , ^-^C0W^O 2 COPO ^ O 'D CO -Jffs «■/! 4* CO l\j^ «H' ■•£> CO -J Vi 4* tú IO ^ O 


PROGRAMA: CMMOV.BAS 


01 2345678901 2345678901 2345678901 23456789 



: CMREGENT. BAS 



1 88 


PROGRAMA: CMREGSA I . BAS 
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PROGRAMA : CMALTSAI.BAS 


01 2345678901 2345678901 2345678901 23456789 


- Controle de Materiai 
> HLTERhChÜ * I'E SRlItfi < 



■ata da Sai da ■ / 
vOdigo do Material: 


>escr ícap 
>aldo no Estoque: 


uant idade da Sai da 
istor ico : 


-‘osso Gravar no Lusco? 


b o 1 o r a u t o cio to 



li st ru.n 




PROGRAMA. CMCANSA I . BAS 


,9123 45678901 2345678901 2345678901 23456789 
0 — *■ 

1 
2 

3 

4 


- Controle de Materiais 
> CANCELAMENTO DE SAI DA < 



••ata de saída I .. 
Jodigo no estoque : 


••escricao : 

ia Ido no estoque: 

Quantidade na sai da 
Numero da requisição: 


PROGRAMA. CMREL.BAS 
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PROGRAMA: CMENC.BAS 


01 2345678901 2345678901 2345678901 23456789 


^‘OMAT - Controle de Materiais 
> ENCERRAMENTO DO MES <-- 

les em andamento .Abril 

Confirmar o encerra mento (S/N) : 

Js saldos atuais foram transferidos rara 

os saldos anteriores. 

Js arquivos estão prontos rara receberem 

os dados doo mes de Janeiro 


Pressione qoiuer tecla rara continuar 


bolor auto ojoto 


list run 


PROGRAMA CMMAN.BAS 


01 2345678901 2345678901 2345678901 23456789 


ÜMAT- Controle de Materiais 
> ARQUIVO DE PARÂMETROS < 


Nome do sistema: 

80MAT - Controle de Materiais 

Número do mês : 

Descrição do mês -Janeiro •: 
Quantidade de Itens no Cadastro • 
Quantidade Movimentada : 5 

última data acessada 10/10/77: 

Alterar no disco? (S/N): 


16 


Icolor 


auto 


goto 


list 


run 
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PROGRAMA : COMAT.BAS 



O rim - Controle de Materiai 
> ENCERRAMENTO < 


ü Sistema de Controle de Mater 


esta sendo desativado 
Hte a próxima í 


01 2345678901 2345678901 2345678901 23456789 


45678901 


456789 


LISTAGEM DOS PROGRAMAS 


Afim de diminuir o espaço ocupado pelos pro- 
gramas, os trechos desenvolvidos nos capítulos anteri- 
ores não estão I i stados . 

Tais trechos são os seguintes: 


NOME 

DESENVOLVIDO NO: 



ESPERE. FNT 

capí tul o 2 

pág i na 

25 

QQUER.FNT 

capí tu 1 o 3 

pág i na 

50 

SONS. FNT 

capí tu 1 o 3 

pág i na 

51 

ROTENT. FNT 

capí tu 1 o 3 

pág i na 

52 

ABREARQ. FNT 

capítulo 4 

pág i na 

79 

ROTINS.FNTT 

capítulo 4 

pág i na 

86 

ROTPMOV . FNT 

capí tu 1 o 4 

pág i na 

105 

ROTPROC. FNT 

capí tu 1 o 4 

pág i na 

107 

MAPAACC. FNT 

capí tu 1 o 4 

página 

113 

ERRO. FNT 

capí tu 1 o 5 

pág i na 

122 


Dos programas do sistema, apenas os indicados 
estão listados, de modo que os demais deverão ser de- 
senvolvidos pelo programador a título de exercício. 


PROGRAMA LISTAGEM 

1 - AUTOEXEC. BAS SIM 

2 - COMAT.BAS SIM 

3 - CMCAD.BAS SIM 

4 - CMMOV.BAS SIM 

5 - CMREGENT . BAS SIM 

6 - CMREGSA I .BAS NAO 

7 - CMALTENT . BAS SIM 

8 - CMALTSAI .BAS NAO 

9 - CMCANENT . BAS NAO 

10 - CMCANSA I . BAS NAO 

11 - CMREL.BAS NAO 

12 - CMREL1 .BAS SIM 

13 - CMREL2. BAS SIM 

14 - CMREL3.BAS SIM 

15 - CMREL4. BAS SIM 

16 - CMREL5. BAS SIM 

17 - CMENC.BAS SIM 

18 - CMMAN.BAS SIM 
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Programa AUTOEXEC.BAS 


100 * 

1M ' s ,nícía Controle de HateNals 

106 ' — 

208 * 23/0-1/87 

Im * Para " etros Iniciais 

206 DR$ = "At** 

208 NARQ = 1 

210 GOSUB 6010.GET «1 1 

220 OIM HC( 3) , VC( 3) , ZC{ 3) 

222 HC{ 1 )=30 : VC{ 1 ) = 7-ZC{ 1 )-? 

224 HC{2)=33:VC(2)=7:ZG{2)=2 

lie cr í !\ =36:VCÍ3,=7:ZC(3,= 2 

400 ' -I 

402 ' Desenha Tela 

404 * — : 

410 CLS 
412 PRINT TT$ 

114 PRINT ” > ABERTURA ✓ 

416 PRINT «OtRTURA < 

422 PrÍnt "HStl r ?S?s'' nd ° 30 slste " a de Controle de" 
424 PRINT 

60^ f R lüLl’!_ a !!:_!f rnecer a data de h»ie:d d/wn/aa" 
602 ' Recebe a Data 

610 LOCATE HC< CR ) . VC( CR ) 

612 CSsZC( CR): GOSUB 1000 

KPP IP ílríffí = 13 THEN G0T0 71 6 

kÍm c A3G í A f , = 28 THEN GOTO 71® 

kpk ir = 29 THEN G0T0 720 

S JWSP» ■ 57 THEN MT ° “• 

710 ’ > A tranca 0 Cursor 

7 * CR = CR + 1 

SJ . ÍotOmV ™“ 6010 868 

/20 > Retrocede o Cursor 

7P4 CR = CR - 1 

726 ™ t CR < 1 THEN CR = 1 

/dB GOTO 600 
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730 ' > Desvia 

732 ON CR GOSUB 810,820.830 

734 CR = CR + 1 

736 IF CR > 3 THEN GOTO 850 

738 GOTO 600 

aee - 


802 ' Opcoes conforme o Cursor 
804 * 

□ ia ' 

812 DD$ = A$ 

814 RETURN 
820 ' 

822 MM$ = A$ 

824 RETURN 
830 • 

832 AA$ = AS 
834 RETURN 

850 ' 

852 ’ Consistência 

854 ' 

856 SEGUE$ = "SIM" 

858 IF VAL(DD$) < 1 THEN CR=1 = SEGUE$="NAO" 

868 IF VAL( DD$) > 31 THEN CR=1 =SEGUE|="NA0" 

862 IF VAL(MM$) < 1 THEN CR=2=SEGUE|="NA0" 

864 IF VAL(tt1$) > 12 THEN CR=2:SEGUE$="NA0" 

878 IF SEGUEI <> "SIM" THEN GOSUB 5010= 

GOSUB 5300: GOTO 600 

880 LSET UD$ = 00$ 

882 LSET UM$ = t*1$ 

884 LSET UAI = AA$ 

886 PUT #1.1 

888 CLOSE #1 

890 PP$ = "COMAT.BAS" 

892 GOSUB 5100 

900 * 

902 ’ Desistência 

904 ’ - 

906 PRINT 
908 PRINT 
910 END 
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MERGE "ROTENT. FNT” 
HERGE "SONS. FNT" 
MERGE "ESPERE. FNT’ 
MERGE "QQUER . FNT" 
MERGE "ERRO. FNT" 
MERGE "ABREARQ. FNT” 
DELETE 6020-6036 
SAVE ” AUTOEXEC . BAS" 


Programa COMAT.BAS 

100 ’ SSSEESSSSSSSSSSSSSSSSSBBBSBSSSSSS 

102 ' COMAT.BAS = Controle de Materiais 

1 0*1 

106 ’ R.M.Watanabe 06/04/87 

200 ’ 

202 ’ Parâmetros Iniciais 

204 ' 

206 DR$ = ”A:” 

208 NARO = 1 

210 GOSUB 6010:GET «1.1 

400 ' 

402 * Formatacao da tela 

404 ' 

406 CLS 
408 PRINT TT$ 

410 PR I Nr' > CARDPIO DE OPÕES < 

412 PRINT 

414 PRINT "Escolher unia das opcoes:" 

416 PRINT 

418 PRINT ”1 - Cadastrar um novo material" 
420 PRINT "2 - Movimentar" 

422 PRINT "3 - Emitir um relatorio" 

424 PRINT "4 - Encerrar o mes” 

426 PRINT ”5 - Manutencao do Sistema" 

428 PRINT "6 - Encerrar o Processamento” 

430 PRINT 

432 PRINT "*** Opcao escolhida = " ; CHR$(255) 

508 ’ 

501 ' Entrada da Opcao 

502 • 

510 K$slNKEY$: IF K$="” THEN GOTO 510 
520 IF K$<"1” OR K$>”6” THEN GOTO 510 
530 PRINT 

540 PRINT "A opcao escolhida foi:"K$ 

550 IF K$="6" THEN GOTO 760 

560 OPCAO = VAL(K$) 



690 0 N OPCAO GOTO 710,720,730,740,750,760 

710 • 

712 ' OPCAO = 1 Cadastr amento 

714 ' - 

716 PP$="CMCAD . BAS" : GOSUB 5100 

720 • 

722 ' OPCAO = 2 Movimentação 

724 ' 

726 PP$="CMMOV . BAS" : GOSUB 5100 

730 * 

732 * OPCAO = 3 Re I ator i os 

734 ' 

736 PP$="CMREL . BAS" : GOSUB 5100 

740 ' 

742 ' OPCAO = 4 Encerrar o mes 

744 • 

746 PP$=”CMENC . BAS" s GOSUB 5100 

750 ' 

752 ' OPCAO = 5 Manutencao 

754 • 

756 PP$="Of*1AN. BAS": GOSUB 5100 

760 - 

762 * OPCAO = 6 Encerramento 

764 ' 

766 PRINT 

768 PRINT ” O Sistema de Controle de Materiais esta 
sendo desativado . . . 

770 PRINT 

772 PRINT" Ate a próxima!" 

774 PRINT 

776 PRINT "##### 

778 END 

MERGE "SONS.FNT" 

MERGE "ESPERE. FNT" 

MERGE "ABREARQ. FNT" 

DELETE 6020-6036 
SAVE "COMAT.BAS" 

Pr ogr ama CMCAD - B AS 

1 MAXFILES = 2 

100 * sssssssssssssssssssscasss 

102 ] CMCAD. BAS = Cadastr amento 

106 ' Este programa efetua o cadastra 
108 ' mento de novos materiais. 

112 * 
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I 


114 ' R.M.Watanabe 07/84/87 
116 ’ 

200 ’ 

201 ’ Parâmetros Iniciais 

202 ' 

204 DR$ = "A:" 

206 NARQ = 1 


208 GOSUB 6018:GET SNARQ. 1 
210 MX1 = CV I ( RC$ ) 

212 NARQ = 2: GOSUB 6020 
216 EC$=SPACE$<4) 

218 ED$=SPACE$( 25 ) 

220 ET$=SPACE${ 1 0 ) 

222 ES$=SPACE${5) 

224 EM$=SPACE$(5) 

230 DIM HC( 6 ) . VC{ 6 ) . ZC{ 6 ) 

231 HC{ 1 )= 7:VC(1)= 4 : ZC{ 1 ) = 4 

232 HC(2)=10:VC(2)= 6:ZC{2)=25 

233 HC( 3 )= 5 = VC{3)= 7:ZC(3) = 10 

234 HC(4)= 6: VC{4)= 8=ZC(4)= 5 

235 HC( 5)= 7:VC(5)= 9:ZC{5)= 5 

236 HC{6)=29:VC(6)=11:ZC(6)= 1 

400 ' 

402 ' Mostra Tela 

484 * 

486 CR = 1 


408 

410 

412 

414 

416 

418 

420 

422 

424 

426 

428 

500 

502 

504 


SEGUE$ = 
CLS 

PRINT TT$ 

PRINT" 

LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
PRINT 
PRINT 


NAO 1 


> CADASTRAHENTO MATERIAIS 

8 . 4= PR I NT"Cod i go 
0. 6:PRINT’Descr i cao:" 
0.7:PRINT’TÍPO:” 

0.8.-PR INT”Sa . 30:” 

0.9rPRINT”Mi nimo:” 


Posso Gravar no Disco? (S/N) : 


Mostra Valores 


516 LOCATE 7.4:PRINT EC$” : ” 
518 LOCATE 10.6:PRINT ED$” S " 
520 LOCATE 5.7:PRINT ET$" : ” 
522 LOCATE 6.8:PRINT ES$" : " 
524 LOCATE 7.9: PRINT EM$’V* 

600 ' 

682 ’ Entrada de Dados - 1 
604 ' 


< 


m» 


*» 
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610 LOCATE HC{ GR ) , VC( CR ) : CS=ZG( CR ) : GOSUB 1000 

620 IF ASC( A| ) = 27 THEN 950 

622 IF ASC( A$ ) = 13 THEN 710 

624 IF ASC(A$) = 28 THEN 710 

626 IF ASG(A|) = 31 THEN 710 

628 IF ASC( A$ ) = 29 THEN 720 

630 IF ASG( A$ ) = 30 THEN 720 

650 GOTO 730 


710 ' > Avança o Cursor 

712 CR = CR + 1 

713 IF SEGUE$ = "NAO" THEN CR = 1 

714 IF CR > 6 THEN CR = 6 

716 GOTO 600 

720 ’ > Retrocede o Cursor 

722 CR = CR - 1 

723 IF SEGUE$ = "NAO" THEN CR = 1 

724 IF CR < 1 THEN CR = 1 

726 GOTO 600 


728 ’ 

730 ON CR GOSUB 810.820,830.840.850,860 

732 CR = CR + 1 

733 IF SEGUEI = "NAO" THEN CR = 1 


734 GOTO 500 

8^0 ' > CR=1 CODIGO DO MATERIAL 

811 GOSUB 1200 

812 IF Cl = 0 THEN EC| = A|=REGl=FIRSTl: 

SEGUE|=”S IM” i RETURN 

814 LOCATE 2.5=PRINT ”*** Material ia 

Cadastrado ***" 

815 GOSUB 5010 

816 LOCATE 0.19 : GOSUB 5200= LOCATE 2.5= 

PRINT SPACEK30) 

817 SEGUEI = "NAO" 

818 RETURN 

820 ' > CR =2 DESCRI CAO DO MATERIAL 

822 EDI = A| 

824 RETURN 

830 ’ > CR=3 TIPO DO MATERIAL 

832 ETI = A| 

QQ4 PFTIIRN 

840 * > CR =4 SALDO EM ESTOQUE 

842 ESI = STRKVAL(AI)) 

844 RETURN 

850 ■ > CR=5 ESTOQUE MÍNIMO 

852 EMI = STR|{ VALÍ A|) ) 

854 RETURN 

860 ’ > CR=6 RESPOSTA 

862 IF A| = ”S" OR A| = ”s" THEN GOTO 868 
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864 CR s 0 

866 SEGUE$ = "NAO" 

868 IF SEGUEI = ”NA(T THEN RETURN 

878 GOSUB 1388 

872 LSET CD| = EC| 

873 LSET DC| = EDI 

874 LSET TC| = ET| 

875 LSET SR| = HKS|( VAL( ESI) ) 

876 LSET SL| = MKS|(8) 

B77 LSET QH| = MKS|{ VAL( EM|) ) 

878 LSET UE| = SPACE|{6) 

B79 LSET US| = SPACEK 6 ) 

888 PUT «NARQ.REGl 

881 MX% = MXl + 1 

882 GET #1.1 

884 LSET RC| = MKIKMXl) 

B86 PUT #1.1 

B88 SEGUEI = "NAO" 

398 RETURN 

958 GLOSE 

952 PP| = "COHAT . BAS" 

954 GOSUB 5188 

MERGE "ROTENT. FNT" 

MERGE "ROTPROC. FNT” 

MERGE "RO I NS . FNT” 

MERGE "SONS. FNT” 

MERGE "ESPERE. FNT" 

MERGE "QQUER . FNT" 

MERGE "MAPAACC. FNT" 

MERGE "ABREARQ. FNT' 

DELETE 6838-6836 
SAVE "CHCAD.BAS" 

Programa CMMOV.BAS 

182 CMMOV.BAS = Movimento de Materiais 

186 ’ R.M.Watanabe 86/84/87 

288 * 

282 ' Parâmetros Iniciais 

284 ' 

286 DR| = "A:" 

288 NARQ = 1 

218 GOSUB 6818 1,1 I #11 

400 • 

482 ‘ Formatacao da tela 
484 ' 



406 CLS 
408 PRINT TT$ 

410 PRINT" > MOVIMENTO DE MATERIAIS < 

412 PRINT 

414 PRINT "Escolher uma das opcoes:" 

416 PRINT 

418 PRINT "1 - Registrar uma Entrada" 

420 PRINT "2 - Registrar uma Sai da” 

422 PRINT "3 - Alterar os Dados de uma Entrada" 
424 PRINT "4 - Alterar os Dados de uma Saida” 
426 PRINT "5 - Cancelar uma Entrada" 

428 PRINT "6 - Encerrar o Processamento" 

430 PRINT ”7 - Voltar a Tela Anterior" 

432 PRINT 

434 PRINT "*** Opcao escolhida = " ; CHR$(255) ; 

5ee ' 

501 ' Entrada da Opcao 

502 ' 

510 K$= INKEY$: I F K$="" THEN GOTO 510 

520 IF K$<"1" OR K $>”7" THEN GOTO 510 
530 PRINT 

540 PRINT "A opcao escolhida foi:”K$ 

560 OPCAO = VAL(K$) 

690 ON OPCAO GOTO 710,720,730,740,750,760,770 

710 * 

712 ' OPCAO = 1 Registrar Entrada 

714 • 

716 PP$="CMREGENT . BAS" : GOSUB 5100 

720 - 

722 ' OPCAO = 2 Registrar Saida 

724 ' 

726 PP$="GMREGSA I . BAS" : GOSUB 51 00 

730 * 

732 ' OPCAO = 3 Alterar Entrada 

734 ' 

736 PP$=”CMALTENT. BAS”: GOSUB 5100 

740 ' 

742 ” OPCAO = 4 Alterar Saida 

7 44 * 

746 PP$="CMALTSA I . BAS" : GOSUB 51 00 

750 ' 

752 ' OPCAO = 5 Cancelar Entrada 

754 ' 

756 PP$="CMCANENT. BAS": GOSUB 5100 

760 • 

762 ' OPCAO = 6 Cancelar Saida 

764 • 

766 PP$="CMCANSA I . BAS" : GOSUB 51 00 
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770 * 

772 ' OPCAO = 7 Voltar 

774 ' 

776 PP$="COMAT . BAS" : GOSUB 5100 

MERGE "SONS.FNT" 

MERGE "ESPERE. FNT" 

MERGE "ABREARQ. FNT" 

DELETE 6020-6036 
SAVE "CMMOV.BAS” 

Programa CMREGEN7 - B AS 

108 * ===============-==-- 

102 * CMREGENT.BAS = Registra Entradas 
104 ' = = = = = = = = = = = = = = = = = = = = := = :: = = = = = := = = = 

106 * Este programa registra as Entradas 
108 ' no Almoxar i f ado. 

112 ' 

114 ' R .M.Watanabe 07/04/87 
116 • 

120 ' Este Programa e idêntico ao 
122 ' CMREGSAI.BAS com excessao das 
124 ' linhas 414 e 894. 

200 ' 

201 ' Parâmetros Iniciais 

202 ' 

203 MAXFILES = 3 

204 DR$ = "A:" 

206 NARQ = 1 

208 GOSUB 6010:GET 0NARQ.1 

210 MXt = CVI ( RC$ ) 

211 MV1 = CV I ( RM$ ) 

212 NARQ = 2 .GOSUB 6020 

214 NARQ = 3: GOSUB 6030 

215 NARQ = 2 

216 ED$ = SPACE$(2) 

217 EM$ = SPACE$(2) 

218 EA$ = SPACE$(2) 

219 EC$ = SPACE$(4) 

220 ET$ = SPACE${25) 

221 ES$ = SPACE$( 5) 

222 EE$ = SPACE$(5) 

223 EH$ = SPAGE$( 1 0 ) 

230 DIM HC( 7 ) * VG( 7 ) # ZC( 7 ) 

231 HG( 1 )=1 6: VC{ 1 )= 4:ZC(1)= 2 

232 HC(2)=19=VC(2)= 4:ZG(2)= 2 

233 HC( 3)=22s VC( 3)= 4:ZC<3)= 2 
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234 

HC(4)= 

19 

: VC( 4 ) 

= 5 

ZC(4)= 

4 

235 

HC( 5 ) = 

22 

: VG{ 5 ) 

=11 

ZC( 5 ) = 

5 

236 

HC( 6 ) = 

10 

:VC(6) 

= 12 

ZC{ 6)= 

10 

238 

HC( 7 ) = 

29 

: VC( 7 ) 

= 14 

ZC{ 7)= 

1 

400 ‘ 

t 

— 

— 



402 * 

Mostra 

Tela 




404 ‘ 


— 

— 




406 

CR = 1 






408 

SEGUE» 

s 

”NA(T 





410 CLS 
412 PRINT TT$ 

414 PRINT' > REGISTRO DE ENTRADAS < 

416 LOCATE 0.4:PRINT"Data da Entrada: / / 

417 LOCATE 0.5:PRINT"Codigo do Material: 

418 LOCATE 0. 8 :PR I NT’Descr i cao ="SPACE$( 25)'' 

419 LOCATE 0 . 9 : PR I NT'Sa I do no Estoque.- 

420 LOCATE 0. 1 1 : PR I NT'Quant j dade da Entrada: 

421 LOCATE 0, 12 = PR I NT”Hi stor i co : "SPACE$( 1 0 
426 PRINT 

428 PRINT "Posso Gravar no Disco? (S/N): 

580 • 

502 ’ Mostra Valores 

504 * 

516 LOCATE 16. 4=PRINT ED$ 

517 LOCATE 19. 4=PRINT EM$ 

518 LOCATE 22. 4: PRINT EA$ 

519 LOCATE 19. 5=PRINT EC$ 

520 LOCATE 10. 8:PRINT ET$ 

521 LOCATE 17. 9= PRINT ES$ 

522 LOCATE 22.11 = PRINT EE$ 

524 LOCATE 10.12:PRINT EH$ 

600 ’ 

602 ' Entrada de Dados - 1 
604 ’ 

610 LOCATE HC(CR).VG(CR):CS=ZC(CR):GOSUB 1000 

620 IF ASG( A$ ) = 27 THEN 950 

622 IF ASC(A$) = 13 THEN 710 

624 IF ASC(A$) = 28 THEN 710 

626 IF ASC( A$ ) = 31 THEN 710 

628 IF ASC( A$ ) = 29 THEN 720 

638 IF ASC(A$) = 30 THEN 720 

650 GOTO 730 


710 ' > Avança o Cursor 

712 CR = CR + 1 

714 IF CR > 7 THEN CR = 7 

716 GOTO 600 

720 ' > Retrocede o Cursor 

722 CR = CR - 1 
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72*1 IF CR < 1 THLN CR = 1 

726 GOTO 600 

728 ' 

730 ON CR GOSUB 810.820.830,840.850.860.870 

732 CR = CR + 1 

734 GOTO 500 

810 ' > CR = 1 Dia 

812 IF VAL(A$K1 OR VAl(A|)>31 1HEN GOSUB 5300 = 

CR = 0 : SEGUE|="NAO" = RETURN 
814 EDI = A| 

816 RETURN 

820 ’ > CR=2 Mes 

822 IF VAUAIX1 OR VAL(A|)>12 THEN GOSUB 5300: 

CR=1 :SEGUE|="NAO": RETURN 
824 EM| = A| 

826 RETURN 

830 ' > CR=3 Ano 

834 EA| = A| 

836 RETURN 

840 ' > GR=4 Codigo do Material 

841 GOSUB 1200 

842 IF Cl <> 0 THEN EC|=A| = ET|=DC| = 

ESI=STR|(CVS(SR|)+CVS(Sl I) ) : 
SEGUEt=”S IM” : REGt=Cl : RETURN 

843 LOCATE 7.6:PRINT ”*** Material nao 

Cadastrado ***" 

844 GOSUB 5010 

845 LOCATE 0,19:GOSUB 5200:LOCATE 7.6: 

PRINT SPACEK30) 

846 SEGUEI = "NAO" 

847 CR = 3 

848 RETURN 

850 ’ > CR=5 Quantidade da Entrada 

852 IF VAL(AI) = 0 THEN GOSUB 5300 = CR=1 = RETURN 

854 EE| = A| 

856 RETURN 

860 ’ > CR=6 Historico 

864 EH| = A| 

865 RETURN 

870 ' > Resposta 

872 IF A| = "S" OR A| = ”s" THEN GOTO 878 

874 CR = 0 

876 SEGUEI = "NAO” 

878 IF SEGUEI = ”NAO" THEN RETURN 

880 ' > Analisa se os dados sao validos 

882 A| = ED|: GOSUB 818 
884 A| = EM|: GOSUB 820 
887 A| = EE|: GOSUB 850 
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888 IF 

SEGUEI = "NAO” THEN RETURN 

890 

LSET MD$ = EDI+EMI+EAI 

891 

LSET MH$ = EH$ 

892 

LSET MCI = ECI 

893 

LSET MQ$ = MKSK VAL(EED) 

894 

LSET MV$ = ”E" 

895 MV1 = MVl + 1 

896 PUT #3.MV1 

897 

GET #1.1 

898 

LSET RM$ = MKII(HVl) 

899 

PUT #1.1 

900 


901 

GET #2. REGI 

902 

LSET UE$ = UD$ + UM| + UA| 

903 

PUT #2,REGX 

910 SEGUE$ = "NAO" 

911 CR 

= 0 

912 RETURN 

950 ' 

> Saída do Programa 

952 

CLOSE 

954 

PP$ = "COMAT.BAS” 

956 

GOTO 5100 

MFRGE 

"ROTENT.FNT” 

MERGE 

"ROTPROG. FNT” 

MERGE 

"SONS. FNT” 

MERGE 

"ESPERE. FNT” 

MERGE 

”000 ER. FNT" 

MERGE 

"ERRO. FNT” 

MERGE 

"ABREARQ. FNT” 

SAVE ” 

CMREGENT. BAS” 

Programa CMREGSAI -BAS 


Desenvolver este programa como exercício. 
Ele é semelhante ao programa CMREGENT . BAS, 
com exceção das linhas 414, 894 e 902. 

Programa CMALTENT -BAS 

^00 ' :bssssss::::ssss:s:ss::s:ssss 

102 ' CMALTENT. BAS = Altera Entrada 
184 ' ============================= 

106 ' Este programa permite alterar 
108 ' os dados de uma entrada. 

112 ’ 

114 ’ R.M.Watanabe 07/04/87 
116 ' 
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120 ’ Este programa e idêntico ao 
122 ' CMALTSAI.BAS com excecao das 

121 ’ linhas 203 e 111. 

200 * 

201 ' Parâmetros Iniciais 

202 • 

203 MAXFILES = 3 

201 T I PO$ = "E" 

205 DR$ = "Ar” 

206 NARQ = 1 

208 GOSUB 601 0 : GET 0NARQ.1 

210 MXl = GV I ( RC$ ) 

211 MV1 = CVKRMÍ) 

212 NARQ = 2: GOSUB 6020 
211 NARQ = 3 : GOSUB 6030 

215 NARQ = 2 

216 ED$ = SPACE$( 2 ) 

217 EM$ = SPACE$( 2 ) 

218 EA$ = SPACE${ 2 ) 

219 EC$ = SPACEId) 

220 ET$ = SPACE$(25) 

221 ES$ = SPACE|{5) 

222 EE$ = SPACE$( 5) 

223 EH$ = SPACE$( 10 ) 

230 DIM HC{ 7 ) . VG( 7 ) , ZC{ 7 ) 

231 HC(1 )=16:VC{1 )= 1 : ZC(1 )= 2 

232 HC{2)=19:VC(2)= 1:ZC(2)= E 

233 HC( 3)=E2 : VC{ 3 )= 1:ZC{3)= E 

231 HC(1)=19:VC(1)= 5:ZC(1)= 1 

235 HC(5)=22:VC(5)=11:ZC(5)= 5 

236 HC( 6 ) =1 0 : VC( 6 )=1E: ZC{ 6 )=1 0 

238 HC{ 7)=29: VC( 7) =11= ZC( 7)= 1 
<100 ' 

102 ' Hostra Tela 

101 ’ 

106 GR = 1 

108 SEGUE$ = "NAO” 

110 CLS 


112 PRINT TT$ 

111 PRINT" > ALTERACAO DE ENTRADA <— - 

116 LOCATE 0.1:PR INT"Data da Entrada= / / 

117 LOCATE 0.5:PRINT”Codigo do Material: 

118 LOCATE 0.8:PRINT"Descr i cao:"SPACE$(25)" 

119 LOCATE 0.9:PRINT"Saido no Estoque- 

120 LOCATE 0.11 :PRINT"Quantidade da Entrada 

121 LOCATE 0. 12: PRINT"Hi stor i co:”SPACE$( 1 0 ) 
126 PRINT 



128 PRINT "Posso Gravar no Disco? (S/N) : 
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500 ’ 

502 ’ Mostra Valores 

504 ' 

51 B LOCATE 16. SPRINT ED$ 

517 LOCATE 19. 4=PRINT EM$ 

518 LOCATE 22. 4:PRINT EA$ 

519 LOCATE 19. 5=PRINT EC$ 

520 LOCATE 10. B:PRINT ET$ 

521 LOCATE 17. 9=PRINT ES$ 

522 LOCATE 22,11 =PRINT EE$ 

524 LOCATE 10.12=PRINT EH$ 

600 ’ 

602 ' Entrada de Dados - 1 
604 ' 

610 LOCATE HC( CR ) , VC( CR ) > C5=ZC{ CR ) = GOSUB 1000 

612 IF CR = 1 AND ASC{A$) = 30 THEN REGI = REGI - 1: 

GOTO 750 

614 IF CR = 1 AND ASC(A$) = 31 THEN REGÍ ■ REGÍ + 1« 

GOTO 750 

620 IF ASC(A$) = 27 THEN 950 
622 IF ASC(A$) = 13 THEN 710 
624 IF ASC(A$) = 28 THEN 710 
626 IF ASC( A$) = 31 THEN 710 
628 IF ASC(A$) = 29 THEN 720 
630 IF ASC(A$) = 30 THEN 720 
650 GOTO 730 


710 ’ > Avança o Cursor 

712 CR = CR + 1 

714 IF CR > 7 THEN CR = 7 

716 GOTO 600 

720 ’ > Retrocede o Cursor 

722 CR = CR - 1 

724 IF CR < 1 THEN CR * 1 

726 GOTO 600 

728 ’ 

730 ON CR GOSUB 810.820,830.840,850,860.870 
732 CR = CR + 1 

734 GOTO 500 

736 * 

750 IF REGÍ < 1 OR REGÍ > MVÍ THEN GOTO 600 


751 GET #3. REGÍ 

752 IF TIPO$ <> MV$ THEN GOTO 612 

753 ED$= L EFT$( MO$ . 2 ) = EH$=M I D$( MO$ . 3 . 2 ) « 

EA$=R I GHT$( MD$,2 ) 

754 EC$ = MCI 

755 EE$ = STR$(CVS(MQ$) ) 

756 EH$ = MH$ 

757 A$ = EC$ 
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758 GOSUB 848 

759 GOTO 400 

810 * > CR=1 Dia 

812 I F VAL{ A$ )<1 OR VAL<A|)>31 THEN GOSUB 5300: 

CR=0 = SEGUE|="NAO" : RETURN 
814 ED$ = A$ 

816 RETURN 

820 ' > CR=2 Mes 

822 IFfVAUAtKI OR VAL{A$)>12 THEN GOSUB 5300: 

CR=1 :SEGUE$="NAO": RETURN 
824 EM$ = A$ 

826 RETURN 

830 * > GR=3 Ano 

831 EA|=A|:A|=ED|+EM|+EA|:NARQ=3: GOSUB 1400.-NARQ=2 

832 IF REG1=0 THEN LOCATE 0.6:PRINT "** Nao houve 

Movimento nesta data**” : 

„ „ GOSUB 5010:LOCATE 0,19=G 

834 EC| = MC$ 

836 EE$ = STR|(CVS(MQ|)) 

838 EH$ = MH$ 

839 A$ = MC$ 

840 ' > CR =4 Codigo do Material 

841 GOSUB 1200 

842 IF Cl <> 8 THEN EC|=A|:ET|=DC|: 

ES$=STR${ CVS( SR$ J+CVSI SL| ) ) : 
SEGUE$=’’SIM": RETURN 

843 LOCATE 7.6:PRINT ”*** Material nao 

Cadastrado ***” 

844 GOSUB 5010 

845 LOCATE 0.19:GOSUB 5200:LOCATE 7.6= 

PRINT SPACE$( 30 ) 

846 SEGUEI = "NAO" 

847 CR = 3 

848 RETURN 

850 ’ > GR=5 Quantidade da Entrada 

852 IF VAL(A$) = 0 THEN GOSUB 5300 = CR=1 = RETURN 

854 EE$ = A$ 

856 RETURN 

860 ' > GR=6 Historico 

864 EH| = A| 

865 RETURN 

870 ' > Resposta 

872 IF A| = ”S" OR A| = ”s” THEN GOTO 878 

874 CR = 0 

876 SEGUEI = "NAO" 

878 IF SEGUEI = ”NAO" THEN RETURN 

880 ' > Analisa se os dados sao validos 

882 A| = EDI: GOSUB 810 
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884 

A| x EM$.GOSUB 

820 

887 

A$ = EE$ : GOSUB 

850 

888 

IF SEGUEI = 

"NAO" THEN RETURN 

891 

LSET MO| 

= EDI+EMI+EAl 

892 

LSET MH| 

= EH! 

893 

LSET MCI 

x EC| 

894 

LSET MO! 

= MKS|( VAL( EE| ) ) 

896 

PUT 13, REGI 

900 

SEGUEI = 

”NAO r ' 

901 

CR s 0 


902 

RETURN 


950 CLOSE 


952 PP$ = "COMAT.BAS” 

954 

GOSUB 5100 


MERGE 

"ROTENT. FNT 


MERGE 

"ROTPROC. FNT 


MERGE 

"ROTPMOV . FNT 


MERGE 

"SONS. FNT’ 


MERGE 

"ESPERE. FNT” 


MERGE 

"QQUER . FNT” 


MERGE 

"ERRO. FNT 


MERGE 

"ABREARO - FNT 



SAVE "CMALTENT.BAS" 

Programa CMALTSAI -BAS 

Desenvolver este programa como exercício. 
Ele é semelhante ao GMALTENT.BAS, com exce- 
ção das linhas 203 e 414. 


Programa CHCANENT -BAS 

Desenvolver este programa como exercício. 

Programa CMCANSAI «BAS 

Desenvolver este programa como exercício. 


Programa C14REL . B AS 

Desenvolver este programa como exercício. 
Ele é parecido com o COMAT.BAS . 


Programa CMRELi.BAS 


100 ' ======================================= 

102 ' CMRELI.BAS = Emite Relacao de Materiais 
1 84 ’ ======================================= 

106 ’ Este programa emite o relatorio 
108 ' RELACAO DE MATERIAIS 
110 • 

112 ’ R.M.Watanabe 20/04/87 

114 * 

200 ’ 

202 ' Parâmetros Iniciais 

204 * 

206 DR$ = "A:” 

208 NARQ = 1 : GOSUB 6010:GET «1.1 
210 MXt = CV I ( RC$ ) 

214 NARQ = 2: GOSUB 6020 
216 JIC$ = "NAO” 

218 PAGINA = 1 

220 MLINHA = 54 

222 FM$ = ”«###«” 

400 ' 

402 * Mostra Tela 

404 ' 

410 CLS 

412 PRINT TT$ 

414 PRINT ” > IMPRESSÃO DO REL 1 <~ 

416 GOSUB 5350 

600 * 

602 ' Núcleo de Emissão do Relatorio 

604 * 

610 FOR REGt = 1 TOMA 
614 GET 2. REGI 

620 IF JIC$ = "NAO” THEN GOSUB 920 

630 LPRINT SPC(1 )CD$SPC(2)DC$SPC(1 );TC$ 

640 IF NLINHA > MLINHA THEN GOSUB 910 

642 LOCATE 5+30*REGVMXV18 = PRINT ">~ 

650 NEXT REGt 

660 CLOSE 

672 LPRINT STRING$(43.”=”) 

800 PP$ = "CMREL.BAS": GOSUB 5100 

gf g • 

911 ’ Salto de Pagina 

912 * 

913 LPRINT STR I NG$( 43 . ) 

914 LPRINT CHR$(12); 

915 JIG$ = "NAO” 

916 NLINHA * 0 


917 PAGINA = PAGINA + 1 

919 RETURN 

920 ' 

921 ’ Imprime o Cabeçalho 

922 * 

924 LPRINT "Metal urgi na METAL Ltda." 

925 LPRINT 

926 LPRINT "Controle de Materiais - HAT ER I A 1 5”TAB( 37) 

"FL-”; 

927 LPRINT USING "MM#” ; PAG I NA 
9c?B LPRINT 

929 LPRINT "Data da Emissão, ”UO$" /”UH$" /”UA$ 

930 LPRINT STRING$(43."-"J 

931 LPRINT "CODIGO DESCRICA0"SPC(17)"TIP0" 

932 LPRINT 

933 JIC$ = "SIM" 

934 RETURN 

MERGE "ESPERE. FNT" 

MERGE "MAPAACC. FNT" 

MERGE "ABREARQ. FNT" 

DELETE 6030-6036 
SAVE "CMREL1.BAS" 
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APÊNDICE I 


CONVERSÃO DE COMANDOS 


A linguagem BASIC, embora universal, pode 
apresentar algumas diferenças em função do equipamento 
onde esteja implementada. 

Em particular, os Basics dos equipamentos 
compatíveis com o Apple-CP/M, MSX e IBM-PC apresentam 
pequenas diferenças. Os exercícios e exemplos do livro 
foram elaborados no BASIC MSX, de modo que os leitores 
que possuem outros tipos de microcomputadores devem 
estudar as diferenças cuidadosamente antes de se lan- 
çar a elaboração do Sistema de Controle de Estoque. As 
diferenças principais são as seguintes: 

1 - As teclas de movimentação do cursor possuem 
códigos ASCII diferentes. Veja a tabela seguinte: 


TECLA 

MSX 

1 BM-PC 

APPLE-CP/M 

— 

28 

0 77 

21 

T 

31 

0 80 

não tem 

« 

39 

0 75 

8 

A 

30 

0 72 

não tem 

HOME 

11 

0 71 

não tem 


Os exemplos do livro devem ser adaptados. 

Para o IBM-PC, a função I NKEY$ retornará uma 
string de 2 caracteres, com o primeiro igual a 0. O 
programa poderá verificar o segundo com ; 

624 IF ASC{ R I GHT${ A$, 1 ) )=77 THEN GOTO 710 

em vez de ; 

624 IF ASG( A$ )=2B THEN GOTO 710 

Para o Apple-CP/M, que não dispõe de determinadas 
teclas, há a opção de escolher alguma outra tecla para 
simular as inexistentes. 

2-0 comando OPEN possue 2 sintaxes básicas: 

I - OPEN "nome” FOR modo AS ftarquivo LEN=tamanho 
II - OPEN "modo". ttarqui vo, "nome”, tamanho 
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Para o MSX, vale a sintaxe I e o nome do arquivo 
pode conter o do dispositivo a ser usado: 


CAS: 

para 

CRT : 

para 

LPT : 

para 

GRP : 

para 


modo 

A: , 0; 


C i , D : 

para 

E: , F; 



a fita cassete 
o monitor de ví deo 
a impressora 
o monitor de vídeo no 
gráfico 

os drives de discos 


No MSX os arquivos sequenciais são definidos comr 

OPEN "nome” FOR modo as flarquivo 

0 modo pode ser INPUT, para ser lido, OUTPUT, 
para ser escrito ou APPEND, para ser acrescido de da- 
dos. Por exemplos 

108 OPEN "A : CADASTRO . ARO" FOR INPUT AS #1 

Os arquivos randômicos são definidos com: 

OPEN ”nome” as flarquivo LEN= tamanho 

Por exemplos 

200 OPEN "A: CADASTRO. ARQT' AS #1 LEN=78 

No Apple-CP/M os arquivos sequenciais são defini- 
dos com: 

OPEN "modo”, ttarqu i vo, "nome” 

O modo pode ser I, para ser lido, ou O para ser 
escrito. Por exemplo: 

100 OPEN ”r\#1," A = CADASTRO. ARO" 

Os arquivos randômicos são definidos comi 

OPEN "R'\ #arqui vo, "nome", tamanho 

Por exemplo: 

200 PEN ”R'\#1 ."A s CADASTRO. ARQ". 78 


No IBM-PC podem ser empregadas tanto uma sintaxe 
como a outra, indistintamente. Os dispositivos, além 
dos disk drives, são os seguintes: 


CAS1 : 

para 

a 

fita cassete 

COMI : 

para 

ti 

porta de comunicação 

COME* 

para 

Ei 

porta de comunicação 

KYBD: 

para 

0 

teci ado 

LPT1 : 

para 

a 

ti impressora 

LPTE: 

para 

a 

Ei impressora 

LPT3: 

para 

a 

3i impressora 

SCRN: 

para 

0 

monitor do vídeo 

0 tamanho 

máximo do 

nome da variável depende 


do sistema. 

No MSX, por exemplo, os nomes SALDO e SALARIO 
embora pareçam se referir à variáveis distintas, refe- 
rem-se à variável SA, pois apenas as E primeiras le- 
tras dos nomes das variáveis são consideradas. 

Em resumo: 



MSX 

IBM-PC 

APPLE-CP/M 

Pode ter até : 

E54 

E54 

E54 

Considera apenas.* 

E 

40 

40 


4 - Os comandos de posicionamento do cursor tam- 
bém são d i f erentes . 

No MSX, o comando é LOCATE e sua sintaxe é a se- 
guinte: 

LOCATE coluna, I inha, cursor 

No IBM-PC, o comando também é o LOCATE porém a 
sua sintaxe é diferente e mais completa: 

LOCATE coluna, I inha, cursor, início, fim 

Os parâmetros início e fim indicam -o tamanho do 
cursor . 

No Apple-CP/M, os comandos são o VTAB e o HTAB 
com as seguintes sintaxes* 

VTAB linha 

HTAB coluna 

Os valores possíveis disponíveis na configuração 
mínima das máquinas estão resumidos a seguir. 
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MSX 

IBM-PC 

APPLE 

-CP/M 

Coluna 


0 a 39 

1 a 80 

1 a 

40 

Linha 


0 a 23 

1 a 24 

1 a 

24 

Cursor 


0 ou 1 

0 ou 1 

não 

tem 

5 

- A 

espec i f i cação 

da quantidade máxima 

de ar- 

qu i vos 

simultaneamente abertos se 

faz de forma 

di f e- 

rente . 






No 

MSX 

, ut i li za-se o 

comando MAXFILES. Por 

exem- 

P 1 0 : 






100 MAXFILES = 5 




No 

IBM 

-PC e no Apple 

-CP/M se 

faz durante a 

carga 

do BASIC na 

memória com s 




BASICA 

/F:5 





ou 





MBASIC 

/F:5 




Em 

todos os casos, a 

quantidade de arquivos pode 

ser entre 1 

e 15, sendo o 

"default" 

i gual a 3. 


A 

tabela a seguir apresenta a 

relação de todos os 

comandos e 

funções dos Basics: 



TABELA 

COMPARATIVA ENTRE 

BASICS 



IBM-PC 


MSX 

APPLE-CP/M 

PISTA 


ABS(r) 


= 

- 



ASC(cí) 



= 



ATN(r) 


= 

= 



AUTO l,i 


= 

= 



não teu 


BASE ( t ) 

não tea 



BEEP 


= 

s 



não tem 


não teu 

BEEP i,t 



não ten 


BINf(i) 

não te» 



BLOAD 


s 

não tea 



BSAVE 


r 

não te» 



não tea 


não tea 

BUTTON(p) 



CALL 


- 

- 



não te# 


não tea 

CALL X 



CDBL(dt) 


= 

s 



CHAIN 


não tea 

= 
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í 


CHRf(a) 

CINT(r) 

CIRCLE 
não tea 
não te» 

CLEAR i,i 
não te» 
não te» 

CLOSE 

CLS 

COLOR i,f,b 
COLOR f, P 
não te» 

COH(p) 

COMMON 
CONT 
COS(a) 
não te» 

CSNG(d) 

CSRLIN i a 25 
CVD(dJ) 

CVI(il) 

CVS(sí) 

DATA 
DATEt 
DATEÍ 
DEF FN 
DEF SEG 
DEF USR 
DEFDBL 
DEFINT 
DEFSGN 
DEFSTR 
DELETE i-i 
não te» 

DIM 

DRAM 

EDIT 

END 

EOF 

ERASE 

ERL 

ERR 

ERROR 

EXP(n) 

FIX(n) 

FIELD 

FILES 


CIRCLE STEP 
não te» 
não te» 
CLEAR e,i 
CLIAD 


não te» 
não te» 
não te» 
não te» 


CSAVE 
= 0 a 24 


não te# 
não te» 

não te» 


não te» 


não te» 


não te# 
não te# 
CLEAR e,i 
não te# 
não te# 
não tem 

não te» 
não te# 
não te# 
COLOR- i 
não te# 


não te# 
não te# 

não te# 
não tea 


não te» 


não te» 
DEL i,i 

não te# 


HOME 


OPOS 


DEL 

DELETE 
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FOR 

— 

FRE(i) 

= 

FREí"") 

= 

6ET Hf 

- 

GET «p 

não te» 

GET st 

não te» 

não te» 

não te» 

GOSUB 

Z 

GOTO 

= 

não te» 

não te» 

HEXi(i) 

= 

não te» 

não te» 

não te» 

não te» 

não te» 

não te» 

não tem 

não te» 

IF 

z 

INKEYI 

= 

INP(p) 

— 

INPUT 

= 

INPUTSf 

z 

INPUTS 

z 

INSTR 

= 

INT(r) 

z 

não te» 

INTEROAL 

não te» 

não te» 

KEY 

= 

KILL 

- 

LEFTS 

= 

LEN(cl) 

- 

LET 

— 

LINE 


não te» 

LINE STEI 

LINE INPUT 

Z 

LINE INPUT ttf = 


LIST 

- 

LIST ,di5p 

não te» 

LLIST 

— 

LEN(cí) 

Z 

LOAD 

- 

LOC(f) 

- 

LOCATE í t c 

diferent 

diferente 

LOCATE c 

LOF(f) 

Z 

LOG(r) 

— 

LPOS(p) 

z 

LPRINT 

z 

LPRINT USING 

= 

LSET 

= 


não te» 


não te» 

BLOAD 

GET cl 

INKEYI 

GR 

SCREEN 

HLIN 

LINE 

HONE 

CLS 

HPLOT 

PRESET 

HTAB 

LOCATE 


não tem 




não te» 


INOERSE 

COLOR 

não te» 


não te» 

HLIN 

não te» 


não te» 

LLIST 

não te» 

VTAB ,HTA8 

não te» 

HTAB , VTAB 
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não te® 

MAXFILES=n 

não te* 



MERGE 

— 




MIDI 

= 




MIDI 


- 



MKDS(d) 

- 

■T 



HKIi(i) 

- 

- 



HKSI(r) 

- 

r 



MOTOR (0) : (í) 

diferente 

nãp te* 



diferente 

MOTOR ON : OFF 

não te® 



NAME 

r 

= 



NEW 

= 




NEXT 

= 

- 



NEXT v 

- 

não te* 



não te* 

não te* 

NORMAL 

SCREEN 


não te* 

não te* 

NOTRACE 

TRON 


OCTS(i) 

- 

s 



ON COH(p) 

não te» 

não te* 



ON ERROR 





ON x GOSUB 

— 

r 



ON x GOTO 

= 




não te* 

ON INTEROAL 

não te» 



diferente 

ON KEY GOSUB 

não te» 



ON KEY(n) 

diferente 

não ten 



ON PEN 

não te» 

não te* 



não te* 

ON SPRITE 

não te» 



não te* 

ON STOP 

não te» 



diferente 

ON SRTRING 

não te» 



ON STRING(n) 

diferente 

não te* 



OPEN FOR 

= 

diferente 



OPEM *f 

diferente 

= 



OPEN "COM: 

não te* 

não te» 



OPTION BASE 

não te* 




OUT p,v 

~ 

não te» 



não te* 

PAO(p) 

não te» 



PAINT 

— 

não te» 



não te» 

PAINT STEP 

não te* 



não te* 

PDL(p) 

= 



PEEK(i) 

- 

2 



PEN 

não te» 

não te* 



PEN 

não te* 

não te» 



PLAY 

não te» 

não te® 



não te* 

PLAY 

não te® 



não te* 

não te* 

PLOT 



POINT 

= 

não te* 



POKE 

- 

~ 



não te* 

não te* 

POP 



POS(x) 

= 




PRESET 


não te» 

HPLOT 
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não te* 

PRESET STEP 

não te* 


PRINT 

= 

2 


PRINT USING 


2 


PRINTRf 


2 


PRINT IfyUSING 

= 

= 


PSET 


não te» 

PLOT 

nao te* 

PSET STEP 

não te» 


PUT #f,r 

= 

= 


PUT ■ 

não te* 

não te» 

BSAVE 

nao te* 

PUT SPRITE 

não te* 


RANDOHIZE 

não te* 

= 


READ lista 

2 

2 


REM 

2 

2 


RENUH 

2 

= 


RESET 

- 

2 


RESTORE 

= 

= 


RESUHE 

= 

= 


RETURN 

= 

- 


RETURN linha 

não te* 

não te* 


RIGHTi(cl,a) 

= 

- 


RND(i) 

= 

= 


RSET 

= 

= 


RUN 

2 

2 


RUN V r R 

2 

2 


não te* 

RUN i 

2 


SAVE V,A 

= 

= 


SAVE "a\P 

não te* 

2 


SCREEN 

diferente 

não te» 


diferente 

SCREEN 

não te* 


SCREEN 

não te» 

não te* 


não te* 

não te* 

SCRN 

POINT 

SGN(n) 

2 

= 


SIN(r) 

2 

2 


SOUNd f,d 

diferente 

não te* 

BEEP 

diferente 

SOUND r,e 

não te* 

BEEP 

SPACEKa) 

- 

= 


SPC(a) 

= 

= 


não te* 

SPRITE 

não te* 


não te* 

SPRITEI 

não te* 


SôR(n) 

2 

s 


STICK(x) 

= 

não te* 

PDL 

stop 

= 

= 


não te* 

STOP ONxOFF 

não te* 


STRS(a) 

r 

2 


STRIG 0N:0FF 

não te* 

não te» 


STRIG(p) 

2 

não te» 


STRIG(p) 

= 

não te* 


STRINGI 

— 

— 


220 





SWAP 

= 

SYSTEM 

não te# 

TAB(a) 


TAN(r) 


não te» 

não te» 

diferente 

TIME 

diferente 

TIME 

TIMES 

diferente 

TIME! 

djferente 

não te» 

não te# 

TROFF 


TRON 

r 

USR(i) 

difere te 

diferente 

USR X A 

VAKcl 


VARPTR(vl) 

r 

VARPTROff ) 

não te# 

VARPTR5ÍÍ) 

não te# 

não tem 

VDP(n) 

não te» 

VDP(n) 

não te» 

não te# 

não te» 

VPEEK 

não te# 

VPOKE 

não te# 

n 

não te# 

nao te» 

não te» 

WAIT p,n,# 

= 

WEND 

não te» 

WHILE 

não te# 

WIDTH n 

= 

não te» 

não te» 

WIDTH #f 7 í 

não te» 

WIDTH disp,í 

não te» 

diferente 

não t ei 

WRITE 

não te# 

WRITE #f . 

não te# 


r 

CALL 

TEXT 

SCREEN 

não te# 


não te# 


não te# 


não te# 


TRACE 

TRON 

não te# 

NOTRACE 

não te# 

TRACE 

diferente 



não te# 


não te# 


não te# 


VL IN 

LINE 

não te» 


não te# 


VPOS 

CSR IN 

VTAB 

LOCATE 


WIDTH l,h 
não te# 
diferente 
WIDTH LPRINT 


a = numero ASCII ( entre 0 e 255) 
b = angulo em radianos 

c = número da coluna 

c$ = string de caracteres 

d = número real em precisão dupla 

d$ = string de número compactado de precisão dupla 
e = endereço 

f = número de referência do arquivo 

i = número inteiro 

i$ = string de número inteiro 
I = número da I i nha 


221 



m = matr 1 z 
P = número da porta 
r = número real 

s$ = string de número compactado de precisão simples 
t = tempo 

v = variável numérica 
v$ = nome de uma variável 


APÊNDICE II - OCUPACSO DA MEMÓRIA 
COMPUTADOR MSX = 


fase A fase B fase C fase D 

M 1 1 



— * HIHEH 
— > FRETOP 
— * STKTOP 


— * STREMO 
— > ARYTA8 
VARTAB 


— > TXTTAB 


m 


Uso do Sisteta 


Basic 


'el 



Buffers 


Strings 

1 

Stackers 

1 

V 


r 

1 ivre 

e 



Arrays 

Prograia 

Interpretador 


Prograias Residentes 













e m 


Uso do 
Si st eia 


•Área de 1/0 


BIOS 


DAee -4 

CCM -4 


mm -4 
















programação 
profissional em basic 
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